PACKET RADIO # THE 3RD GENERATION SOFTWARE APPROACH 


AX. 25 PROTOCOL 


Robert M. Richardson, W4UCH 
22 North Lake Drive 


Chautauqua Lake, 


ABSTRACT: 


The 3rd generation 'software approach@ 
to 1200 baud packet radio using the AX 25 
protocol is described. This approach 
consists of software written in assembly 
language to replace the Tucson Amateur 
Packet Radio (TAPR) terminal node 
controller (TNC) which includes: 
the TNC's 68093 microprocessor. 
the TNC's costly SDLC/HDLC controller. 
the TNC's large 25K to 35K EPROM. 
the TNC's dynamic RAM. 
the TNC's RS232 UART 
the TNC'sancillary support chips. 


The software approach also eliminates 
the need for an RS232 interface (approx. 
$100 cost) on the host microcomputer which 
may be either a Model I or Model III 
TRS-80. The RS232 interface is replaced by 
a low cost port zero encoder/decoder (parts 
cost approx. $15) which is used to 
interface the microcomputer to a home brew 
modem (parts cost approx. $15) which may 
use the low cost EXAR 2206/2211 AFSK 
modulator and demodulator chips that are 
used in both the Vancouver and TAPR 
modems. 


A more sophisticated modem of the 
users choice for noise-prone and fade-prone 
circuits such as OSCAR 10 may be required 
for satisfactory weak-signal operation, 
though the author regularly and reliably is 
able to work the Toronto, Canada area 
packet repeater, VE3PKT, some 110+ miles 
distant. 


A number of major improvements for the 
3rd generation packet radio software 
approach which are included in Volume 2, 
"Synchronous Packet Radio Using The 
Software Approach = AX.25 Protocol,' are 
described in detail. 


INTRODUCTION: 

Just as the TAPR terminal node 
controller has undergone a number of 
iterations and improvements since its 
inception, the ‘software approach' has 


followed a similar course. Looking at a 
typical exponential growth/learning curve, 

1984's software approach is about 85% up 
the vertical scale and approaching the knee 
of the curve whereas the software packet 
program written in 1982 was at the 33% 
level. This decided improvement was 
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largely motivated by the disclosure in 1983 
to the public at large, of the brilliant 
AX.25 protocol by Terry Fox, WB4JFI et al 
at the Second ARRL Amateur Radio Computer 
Networking Conference. The AX.25 protocol 
is to packet, what SSB was to amateur radio 
communication techniques in the mid-1950's; 
i.e., not revolutionary, but a giant 
evolutionary step forward. We doff our 
collective hats to the many authors of the 
excelllent AX. 25 protocol. 


The 3rd generation software approach 
has a significant number of improvements 
over the lst generation that was presented 
in Volume 1, "Synchronous Packet Using The 
Software Approach = Vancouver Protocol.' 
These improvements are: 


1, Receive isto synchronous to parallel 
byte conversion is done in real-time. 
2. Automatic; AX.25 repeater if your callt+ 
SSID in repeater segment address field 
3. CRC generation and checking is done in 
virtual real-time = 27 times FASTER. 
4, AUTO eration mode option for unattend- 
ed operatfion with T2 timer auto reset. 
5. FORMAT on/off option for receive video 
recognizes or ignores C/R‘'s and L/F's. 
6. Multi-frame packets are input from the 
keyboard same as single frame packets. 
7. Information field length may be set 
from the menu from 1to 256 bytes. 
8 Frames per packet may be set from the 
menu from 1to 7 frames. 
9. NOW connected mode displays and stores 
only the information field each frame. 
10. NOT connected mode displays and stores 
everything except flags and CRC bytes. 
11. Disk I/O from within the program. 


Here is a rundown of major improvements. 


A. REAL-TIME SYNCHRONOUS BIT CONVERSION: 


received packets were 
stored in memory using the byte per 
received bit approach. This was a great 
teaching tool as it allowed the user to 
visualize the SDLC received bit pattern a 
full paae of memory (1024 bytes per page) 
at atime using the program's edit/modify 
mode. Each and every received bit, flags, 
data bits, and zero insertion bits were 
there to be seen. Some times a picture is 
worth a thousand words and it was quite 
useful for the newcomer to synchronous 
packet radio to be able to see the 


In Volume 1 


brilliant IBM synchronous data link control 
concept in action. 


So much for the pluses of this approach. 
Its disadvantages were that it took 
precious time to decode tne data after the 
packet had been received and more 
importantly ate up memory faster than a 
hungry bear. The time factor was not 
noticeable with single frame packets, but 
was measurable when multi-frame packets of 
maximum length were received. The 
voluminous memory requirement for the byte 
per received bit storage was this 
approach's major detriment. 


Along comes Sir Galahad, ne Gil 
Boelke-W2EUP, on his white charger to 
rescue Volume 2 from the memory monster. 
Not only does W2EUP's superb real-time 
serial synchronous bit to parallel decimal 
byte conversion subroutine solve the memory 
problem, but it also eliminates the 
measurable time delay for decoding long 
multi-frame packets. 


The author's software digital 
phase-locked loop (DPLL) used in Volume 1, 
was again used in Volume 2 with only 
cosmetic changes. it was an old 
trusty/reliable friend and allowed the user 
to copy 1200 baud packets whose timing was 
off as much as 10 percent from the norm. 
It is somewhat analagous to the hardware 
approach used by the Intel 8273 dedicated 
SDLC controller MSI chip. Figure 1 
illustrates two, bit time periods where 
there was a change from space to mark (mark 
and space are used only as colloquial terms 
since SDLC/HDLC are only interested in the 
relative change and not the absolute 
value), 


Each 1200 baud 833.333 microsecond bit 
time is divided into quadrants with each 
quadrant testing for a change of state 
(mark or space) of the incoming serial 
synchronous data bit. Ideally, all 
transitions from mark to space or vice 
versa, will occur exactly between quadrants 
2 and 3, so that the bit sample taken after 
time 4 is exactly at the dead-center of 
each incoming bit time. Since our software 
DPLL is somewhat less than ideal/perfect, 
it adjusts the variable time 4 countdown 
value so that the average bit transition is 
usually between time 2 and time 3. If it 
occurs during time 1or time 4 a much 
larger correction is made to time 4 to 
bring the sample time back to near 
dead-center again. 


All bit processing is done by the 
program between time 4 and time 1. The bit 
processing time is less than 10% of the 
total 833.333 microsecond bit time period 
so has’ little or no effect on the DPLL as 
long as each processing time period is 
exactly the sane. Equalizing tine delays 
in the processing routine are used to 
insure that the processing time period 
is exactly the same. Equalizing time 
delays in the processing routine are used 
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to insure that the processing time period 
remains constant. 


The DPLL's fixed time constants of TYME 
1, 2, and 3 with values of 23 decimal are 
for the Model I TRS-80. The Model III with 
its slightly faster clock uses decimal 28 


for TYME Ae 32: and Bis The DPLL 
subroutine's calculated TYME 4 countdown 
correction values are the same for both 


Models. 


Figure 3 is the commented source code 
for the 1200 baud real-time synchronous to 
parallel decimal conversion, most of which 
from lines 900 to 1880 were generously 
contributed by W2EUP. The author's DPLL 
begins at the label TYME in line 1880 and 
runs through the end of this subroutine. 
Fig. 3 starts off with MODE which is the 
beginning of the receive mode subroutine. 
All the folderol before line 900 are simply 
the cues to tell you what the program has 
done automaticaly (if in the NOW CONNECTED 
mode of operation), such as displaying 
<CONNECTION ACK> on video if the program 
was in the AUTO ON mode, and so forth. 


n the receive mode, the program 
continually cycles between NEWONE in line 
690 and line 840/860 while looking for a 
valid (mark or space) change in the input 
from the EXAR 2211 demodulator via port 
zero. When a change is found, the program 
progresses to FL1 where it searches for the 
first opening flag. If the DCD (data 
carrier detect) from the EXAR 2211 drops 
before a flaq is found, it starts all over 
again at BEFOR1. 


Once an opening flag has been found, 
it proceeds to FL2 where further opening 
flaas are ignored as this subroutine is 
searching for the first non-flag data byte 
in the frame. Again, if DCD drops it starts 
all over again at BEFOR1. When the first 
non-flag byte of the first frame is 
assembled, line 1270 jumps of to line 1600. 
The IN1 subroutine is the work horse of 
this real-tim receiv mode decoding 
section. 


Only the first flag that is decoded by 
FL1 is stored at 40959 in memory. Decoded 
packet data bytes are stored from 40960 on 


up in memory by the IN1_ subroutine. All 
converted bytes except frame ending flags 
are stored here for each packet. Each 


frame's ending flag location is stored 
sequentially in memory beginning at STORE. 


After the entire packet has been 


decoded in real-time, IN1 exits to the 
MOVEM subroutine that is not shown in 
Figure 3 as it is too lengthy for this 


conference paper. MOVEM's function is 
determined solely by the mode the operator 
has selected; i.e., NOW connected or NOT 
connected. 


B,. AUTOMATIC REPEATER + NOW/NOT CONNECT: 


In the NOW connected mode of operation 
each frame is CRC checked and if ok, the 
repeater segment of the address field then 
tested. If it contains your call letters 
and SSID, then the repeated bit is set for 
each frame, the CRC recalculated for each 
frame, and the total packet retransmitted. 
As such, your packet station serves as an 
automatic repeater. Video will display 
<FORWARDING> when this function is used. 
If the automatic repeater function is not 
called, the program then tests the other 
station's and your call letters + SSIDs 
(and repeater call letters + repeated bit 
where applicable) and if ok, sequentially 


tests each frame's control byte to 
determine the function. 
Let's assume it was an _ information 


frame. Since you know who you are 
connected to, (the other station's call 
letters are displayed by the program in the 
lst three right hand columns of Figure 2's 
main menu in both the auto and non-auto 
modes), ONLY the information field of each 
frame is displayed on video and stored in 
high memory. The ACK is then transmitted 
automatically while the video display 
remains in the receive mode. See Figure 2 
for the main and shift menus. 


In the NOT connected mode, everything 
except the flags and each frame's CRC bytes 
are displayed on video. The call letters 
and repeater if used, of the address field 
are right shifted one bit so as to display 
their real ASCII values. If you selected 
the NOW FORMAT option from the main menu, 
all carriage returns and line feeds are 
recognized and acted upon on the video 
display, If NOT FORMAT, they are ignored 
and the TRS-80 symbols for ASCII 13 and 10 
displayed. NOW or NOT format may be used 
in either the NOW or NOT connected modes. 


Intentionally, there is no CRC check 
of each frame in the NOT connected mode as 
we wish to see everything the EXAR 2211 is 
capable of demodulating, good and bad, up 
to 4K bytes in length per packet. 
Simultaneously with the video display 
function, all received bytes are stored 
sequentially in high memory beginning at 
53248 decimal. Each received packet with 
CRC bytes may be inspected a full 1024 bvte 
page at a time by going to the edit/modify 
mode via press M from the main menu to go 
to 40960 in mid-memory. Press ENTER to 
move up a page or the MINUS key to move 
down a page. 40960+ is re-used bv each 
received packet. To inspect everything 
sequentially received so far (up to 12 
pages = 12,288 bytes) except flags and CRC 
bytes, press shift M to take you to 53248+ 
in memory and then page up or down in 
memory as you wish. The BREAK key will 
return you to the main menu from the 
edit/modify mode. 


C. HI-SPEED CRC USING THE BYTE-WISE LOOK- 
UP TABLE APPROACH SUGGESTED BY PEREZ: 


Volume 1's software CRC generation and 
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checking subroutines emulated the hardware 
approach used by IBM and the other SDLC 
controller chip manfacuturers. By that we 
mean the software aprroach emulated the 
same multi-shift register format and 
derived the CRC value on a bit by bit 
basis. It worked very well thank you, but 
it ate up precious time, especially with 
long multi-frame packets. 


One approach we tried was to do the 
transmit mode CRC generation in real-time 
while the frame was actually being sent, 
just as the Intel 8273 SDLC controller chip 
does it and just as this program does the 
zero-insertion in real-time. It worked, 
but it solved the wrong problem. The real 
problem lay in the receive mode CRC 
checking time delay that was measurable 
when maximum length multi-frame packets 
were being received. 


Much like Sir Galahad saving the SDLC 
maiden from the memory monster, along comes 
Sir Lancelot, ne Aram Perez, and saves’ the 
CRC damsel from the time eating dragon. 
The June '83 issue of IEEE Micro Journal 
had a fascinating paper by Aram Perez that 
covered his 'byte-wise' CRC look-up table 
approach for the CRC16 (Bisync 
polynominal. Without too much difficulty 
we were able to generate a look-up table 
for the IBM SDLC polynomial used by the 
AX.25 and Vancouver protocols. 


The results? An incredible 27 times 
SPEED-UP of both CRC checking and 
generation compared with Volume 1 of the 


The majority of this 


software approach. 
courtesy of 


section and its subroutine is 
Mr. Perez' excellent paper. 


The CRC we will cover will detect: 


# all one or two bit errors. 

- all odd number of bit errors. 

- all burst errors less than or equal to 
the the degree of the polynomial used. 

# most burst errors greater than the 
degree of the polynomial used. 


What this adds up to in AX.25 protocol 
is a probability in the vicinity of 10 to 
umpteenth power, that if the CRC tests ok, 
the received frame that was CRC checked is 
correct and identical to that which was 
transmitted. If it is good enough for 
banks to transfer funds by electronic mail 
(it is), it should be good enough for us. 


HERE IS HOW IT WORKS: 


In a protocol utilizing the cyclic 
redundancy check, the message to be 
transmitted between the last opening flag 
and the closing flag in each frame is 
considered to be a binary polynomial M(X). 
It is first multiplied by X to the K power 
and then divided by an arbitrary generator 
polynomial G(X) of degree K. This yields a 
quotient Q(X) and a remainder R(X) divided 
by G(X). All arithmetic is done in modulo 
2; i.e., the results of subtraction are 
equal to the results of addition. The 


equation looks like this: 


x M(X) R(X) 
aa = Q(X) ® ~a-7— 
G(X) G(X) 


signifies addition in 
Simplifyinad this 


The ® sign 
modulo 2 arithmetic. 
equation yields: 


X M(X) ® R(X) = Q(X) G(X) 


Where R(X) will always be of degree K 
or less. The CRC algorithm calculates R(X) 
and tacks these 2 bytes onto the end of the 
frame to be transmitted. Since as 
illustrated above, x M(X) ® R(X) does 
indeed equal Q(X)G(X), the original message 
with the 2byte CRC tacked on will be 
evenly divisible by G(X), IF and only IF no 
bits were erroneously received. Using the 
IBM SDLC (CCITT) polynomial as shown below, 
the remainder will always be 61624 decimal 
IF the frame was received correctly. 


IBM SDLC AND BISYNC GENERATOR POLYNOMIALS 


NOTE the [ figure = exponentiation 
IBM SLDC (CCITT) X(16+X(12+X[5+1 
SDLC REVERSE X[16+X[(11+X[4+1 
CRC1 6 (BISYNC) X(16+X(15+xX[2+1 
CRC16 REVERSE X(16+X[14+X[1+1 


The reverse polynomials are the same 
as their big brothers, except taken in 
reverse order. Since the rather simple CRC 
arithmetic is done in modulo 2, it is quite 
easily implemented by the MSI chips used by 
both Vancouver and TAPR TNC boards. The 
former using the Intel 8273MSI chip and 
the latter using the Western Digital 
1933/1935 MSI chip. 


One of the drawbacks to using the 
hardware rather than the software approach 
is that the user never knows what the CRC 
value is that he/she transmitted or 
received. Some packet operators could care 
less, but then again, some radio amateurs 
prefer to fully understand what they are 
doing. 


This program allows you to’ read _ out 
exactly what the generated and received CRC 
values are for every packet that is 
transmitted or received by using the 
edit/modify mode. 


Unfortunately there is no such thing 
as ‘free lunch.' The price we have to pay 
for this extremely FAST CRC subroutine is a 
modest bit of memory for the 512 bvte 
lookup table. Nevertheless, it is a small 
price to pay for the near 'speed of light' 
swiftness gained. Again, this approach is 
27 times faster than the bit by bit CRC 
routine used in Volume 1. 

Both received frame CRC checking and 
transmit frame CRC generation are each 
quite simple using Aram Perez' byte-wise 
approach modified for IBM SDLC (CCITT) 
polynomial. Let's look at the transmit 
mode CRC generation first. 


All frames to be transmitted are first 


moved to MEM location 43008 + a frame at a 
time, then the CRC is_ generated, and 
inserted. For multi-frame packets, a frame 
is moved, the CRC generated for that frame 
and inserted, and then the next frame 
moved, CRC generated and _ inserted, etc. 
This only requires milliseconds of 


real-time. 


The memory location denoted by the 
label ENDCRC always contains the generated 
CRC value of the packet just transmitted IF 
it was a single frame packet or the 
generated CRC value of the last frame 
transmitted if it was a multi-frame packet. 
If the current packet being transmitted is 
a single frame info packet and the program 
in the NOT connected mode, the CRC value in 
decimal will be displayed on the top line 
of video, and the packet immediately below 
it while it is being transmitted. 


Why bother with displaying the CRC 
decimal value in the unconnected mode? 


Only for convenience. Sometimes it 
can be very useful for the station at the 
other end who is trouble shooting his/her 
receive mode system. Even the hardware 
approach using the Western Digital WD-1933 
or Intel 8273SDLC chips can on _ occasion 
have problems with its real-time CRC. Some 
of the early SDLC controller chips 
exhibited this type of problem. 


Figure 4 starts off with the commented 
source code for generating the two IBM SDLC 
CRC bytes for each frame to be transmitted. 
Almost the same routine is used for testing 


the CRC value of each incoming frame of 
each packet. See lines 870 through lines 
990 of this subroutine for the receive 


mode CRC check. For either transmitted or 
received frames, this CRC function is 
accomplished virtually in real-time. 


D. TRANSMITTING MULTI-FRAME PACKETS: 


Data for the information fields of all 
multi-frame packets originates in low 
memory beginning at 17408 decimal. 12288 
LO-MEM bytes are reserved here for the 
automatic multi-frame transmit function. 
Data may be input directly from the 
keyboard by pressing shift L to go to 17408 
in LO-MEM in the edit/modify mode and then 
typing away till done, or data may be input 
from disk without leaving the program. 


Referring to Figure 2's main menu, the 
operator presses G to input the number of 
frames per packet 1 = 7,and then presses N 
to input the information field length of 1 
to 256 bytes per frame. Actually, any info 
field length up to 2000 bytes may be 
specified for use between agreeing 
packeteers if a reliable path is available. 
Now, press E to commenc the LO-MEM 
multi-frame transmit function. 


In now connected mode, the program 
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will calculate the number of frames to be 
transmitted, divide them by the number of 
frames per packet specified, calculate the 
total number of packets to be transmitted, 
calculate the number of frames in the last 
packet, and calculate the number of bytes 
in the last frame of the last packet. It 
will then begin sending them automatically. 
While they are being transmitted, the top 
line of video will display the remaining 
number of frames to be transmitted, and up 
to the first 15 lines of the packet being 
sent. 


After the packet is transmitted, the 
program will switch to the receive mode and 
display <OK> if the acknowledgment was 
correctly received, or <RESENDING> if it 
was not received correctly or the T1 resend 
timer times out. Assuming that the ACK was 
correctly received, it will then assemble 
and transmit the next packet. The total 
assembly time for each multi-frame packet 
including CRC'ing each frame, is measured 
in milliseconds. This process will 
continue automatically till all LO-MEM data 
has been transmitted and acknowledged. 


In the NOT connected mode, the 
operation is almost identical to that just 
described, except the operator must press 
the E key from the main menu to sequence 
and then transmit each packet till all 
LO-MEM has been transmitted, as ACK's will 
obviously not be received. This function 
is seldom if ever used in the NOT connected 
mode and was included only to’ satiate one 
of our rather unique BETA testers who gets 
his jollies from sending long multi-frame 
packets in this mode. 


Figure 5 is the commented source code 


for the multi-frame transmit mode 
subroutine. It is easy to follow when one 
understands how the regular registers, 
alternate registers, and stack are used 


from SEND? onward. 


REGULAR REGISTERS: 
= parallel byte from memory 
time delay routine in  SN1 
parallel byte value in SN1 
bits per byte counter SN1 
JP (HL) countdown jump SN1 
unused 

xmit byte memory 


HHme OMY 
Q 


Kx EF 


location 


ALTERNATE REGISTERS: 


A = unused 

B = frames in the current packet 
C = last frame last pack pointer 
DE = last frame last packet length 
HL = frame length except for last 


STACK IN SEND7: 
Bytes remaining to send in frame 


The SEND7 subroutine in Figure 5 is 
not really a sticky wicket if one realizes 
that the program always sets alternate C 
register to lmore than B register, except 
for the last packet being transmitted from 
LO-MEM. As such, it never jumps to KYBD4B 


3.94 


except for the last frame of the last 
packet. For the last multi-frame packet 
only, alternate C and alternate B are set 
to one less than the number of frames to 
transmit in this final packet. When the 
next to last frame of this last packet has 
been transmitted, alternate € is 
decremented to zero, so jumps off to KYBD4B 
that pushes alternate DE on the stack which 
is the length of the final frame of the 
last packet. 


The SN1 and SN1A subroutines in Figure 
5 do the yeoman job of converting the 
parallel decimal byte to the synchronous 
1200 baud serial bit that is output via 
port zero. SNIA is used for 126 decimal 
flags that do not utilize zero-insertion, 
and SN1 is. called for data bytes between 
flags that may require zero-insertion. 


E. DISK I/O FROM WITHIN PACKET PROGRAM: 


At first glance appears as easy as 
falling off a log. Always be suspicious of 
easy logs in this game. On second glance, 
when one realizes that virtually all of RAM 
memory from 17408 to 28672 is used by the 
TRS-80 for disk subroutines, and this is 
the area where the software approach stores 
long data from the keyboard or disk to be 
transmitted in multi-frame packets, it 
becomes apparent that both the packet data 
and disk subroutines cannot occupy the same 
memory at the same time. 


One simple solution is to leave the 
packet program, do the disk I/O functions 


desired, return to the packet program, 
clear out low memory, and resume 
packeteerina. Though simple and easy to 


decided inconvenience 


accomplish, it is a 
approach for the 


and time consuming 
operator. 


What we desired was having our cake 
and eating it too; i.e., having the write 
to disk and read from disk functions within 
the software approach program, while at 
almost the same time being able to use low 
memory for storing long data to be 
transmitted in multi-frame packets. 


The solution to this apparent paradox 
was to save the TRS-80's minimum disk 
operating system (system 1) in mid-memory 
and write our own disk I/O subroutine that 
this section delineates. Our disk I/O 
subroutine requires only 1859 bytes of 
memory and serves three purposes: 


1. Volume 2 is a teaching textbook as well 
as a working AX.25 program. As such, it 
familiarizes the reader with writing 
direct disk I/O subroutines. 

2, Allows disk I/O without leaving the 
packet program. 

3. Provides the basis for Volume 3's auto- 
matic-unattended disk access by another 
packet station. In essence, it is a 
mini-version of a computer bulletin 
board system with the SEND, SAVE, LIST, 


and HELP commands sent via packet. 


Figure 2% SHIFT menu illustrates the 
3 commands used for the disk I/O functions 
from within the software approach program. 
Shift R loads a disk file of up to 12K 


bytes in length to high memory (53248 up) 
and shift D moves it low memory for 
multi-frame packet transmission. Shift Q 


saves up to 12K bytes of high memory in a 
disk file of whatever name the operator 
wishes to give it. The high memory data 
may be either input from the keyboard using 
the edit/modify mode, or conversely may be 
received packets the operator wishes to 
save on disk. 


Figure 6 is the commented source code 
for this subroutine which is largely 
self-explanatory. It works quite well with 
the Model I TRS-80 and on a maybe basis for 


the Model III TRS-80 depending upon which 
version of ROM the user's’ system has 
installed. 


F. REAL-TIME EDIT/MODIFY/MONITOR MODE 
FOR COMPUTER NETWORKING PROGRAMS: 


Whether the software or hardware 
approach to packet radio is used, we have 


found that an  in-program (within the 
terminal interface program TIP) subroutine 
that allows instant access to the 
computer's 64K bytes of memory, 1024 bytes 


per page displayed on video, is a useful 
adjunct to the packet operator% tool kit. 


Memory may be reviewed in the edit 
mode and modified in the modify mode if 
desired. If the operator wishes to save 
the*modified TIP it may be dumped to disk 
thus eliminating the time consuming 
requirement of exiting the TIP program, 


loading the TIP source code into an 
Editor/Assembler, modifying the source 
code, assembling the program, and then 


writing it on disk. 


In addition to the edit/modify/monitor 
functions, this subroutine serves as_ the 
keyboard input subroutine for typing packet 
messages into low memory beginning at 
17408. Up to 12 pages, 1024 bytes per 
page, may be used by enthusiastic typists. 
A carriage return followed by a line feed 
is input by pressing ENTER, End of message 
delimiters, 128 decimal, are input by 
pressing shift zero. 


The short 866 byte subroutine that 
performs the edit/modify mode functions is 
illustrated in Figure 7 which is the 
commented source code. 


The edit/modify program may be 
considered a subroutine if you wish, but it 
is truly a stand alone program that may be 
appended to any variety of software where 
the user wishes to access to all 64K bvtes 
of memory WITHOUT leaving the program. 
Depending on the ROM/RAM varieties in the 
particular computer, the user may not onlv 


review, but actively modity anywhere from 
48K to 64K of memory while the program is 
up and running. 

EDIT/MODIFY PROGRAM ENTRY POINTS: 


There are 3 entry points to save the 
user the trouble of having to page too far 
through memory. They may be called from 
the TIP program's main menu in Figure 2 
by: 


1. Press M to go to the 1024 byte page 
of beginning in mid-memory at 40960 
decimal. 

2. Pressing SHIFT M from the menu will 
display-the 1024 byte memory page 
beginning at 53248 in high memory. 

3. SHIFT L from the menu will display 
the 1024 byte memory page beginning 
at 17408 in low memory. 


We will assume you pressed M from the 
TIP menu which takes us to memory location 
38912 that is in line 5240 of Figure 7's 
source code program. Had you pressed SHIFT 
M or SHIFT L, then the HL register would 
have been loaded with 53248 or 17406, 
respectively and the jump made to 38915 in 
MEM that is in line 5250. 


The rest of the subroutine in Figure 
7's commented source code is _ largely 
self-explanatory. 


The edit/modify/monitor in-program 
subroutine is a useful tool for the 
packeteer. It is elegant in its 
simplicity, yet a very POWERFUL tool. By 
all means modify it to suit your own 


operating habits and _ fancy. If you are 
used to using memory modifier and/or 
monitor programs such as SUPERZAP, DEBUG, 


ZAPSIT, etc., you may abandon them for this 
short in-program subroutine once you become 
accustomed to using it. 


A new version of the edit/modify 
subroutine using a number of the Electric 
Pencil (tm) word processing program 
commands for keyboard input of packet 
messages may be implemented later this 
year. 


CONCLUSION: 


First, a personal note. Writing the 
‘software approach' for both Volumes 1 and 
2 was great fun and very gratifying. 


why? 


Because so many experienced packeteers 
told us it could not be done using a 
modestly priced 2 MHz ballpark crystal 
clock Model i or Model III TRS-80 
microcomputer. Actually, most any computer 
with a 1 MHz or faster clock should be able 


to handle 1200 baud synchronous packet 
using the software approach. The Model I 
or Model III TRS-80 is quite capable of 


running 2400 baud packet using this program 
if the timing constants are carefully 
trimmed and adjusted. 
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With the new Zilog Z-800 micro- REFERENCES continued: 
processor and its extremely fast clock, 


(and internal cache memory), the software Z-800 Micro-P Product Specification 
approach may be extended to 9600 baud and Zilog, Inc. 
well beyond. 1315 Dell Avenue 


Campbell, CA 95008 
Want to dig deeper? If so, try Volume 
1 or 20f 'Synchronous Packet Radio Using 
The Software Approach.' 


Vol. 1 = Vancouver Protocol is $22 ppd 
and Vol. 2 # AX.25 Protocol also $22 ppd. 
If you want the programs on disk in 
addition to the book which is required for 
instructions to personalize the disk, 
specify Model I or Model III TRS-80. The 
disk programs are an additional $29 ppd. 
U.S. phone orders are welcome during 
business hours at (716)-753-2654 or you may 
order from: 


Richcraft Engineering Ltd. 
#1 Wahmeda Industrial Park 
Chautauqua, New York 14722 


Do not want to dig deeper? Then we 
highly recommend to you the Tucson Amateur 
Packet Radio terminal node controller. It 
is a highly efficient, very professional, 
and first-rate kit. It is available for 
$252 which is about one half the price were 
it produced by a profit making enterprise 
that most likely would not do as thorough a 
job as TAPR. 


We salute TAPR and all those who have 


contributed to the development of its TNC, 
for an outstanding service to amateur 
radio. 

REFERENCES: 


Proceedings = 2nd ARRL Amateur Radio 
Computer Networking Conference 

AX.25 Protocol pp 4 -14 

by Terry Fox, WB4JFI 


Proceedings ¢: 2nd ARRL Amateur Radio 
Computer Networking Conference 
Link Level Address Mechanisms pp 47-49 
by Henry S. Magnuski, KA6M 


5 


-E Micro Journal = June 1983 issue 
Byte-Wise CRC Calculations pp 40 = 50 
by Aram Perez 


IE 


QST = February 1984 issue 
‘On Line' Column pp77 
by Stan Horzepa, WA1LOU 


Gunnplexer Cookbook «= A 10 GHz Microwave 
Primer 335 pp 
by Bob Richardson, W4UCH 


Advanced Baudot RITY for the TRS-80 
Vol 5 Disassembled Handbook 223 pp 
by Bob Richardson, W4UCH 


AX.25 Protocol Modifications/Update 


personal communication 
by Paul L. Rinaldo, WARI 
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LOE 


FIGURE 1 


1200 BAUD SOFTWARE DIGITAL PHASE-LOCKED LOOP QUADRANTS 


CHANGE ADDRESSEE CALL LTRS 
MOT CONNECTED TOGGLE 

SEND PACKETS FRO!: LO=-MEM 
INPUT FRAMES/PACKET LO-MEM 
BACKOFF DELAY TOCGLE OFF 
NOW IN UPPER CASF MODIFY 
DISPLAY/EDIT MEMORY PAGE 
NOW FORMAT VIDEO TOGGLE 
VIA WA2EGW/R REPEATER ON 
CHANGE REPEATER CALL LTRS 
CLEAR NON-PGM MEM 17K-62K 
ABORT LOW-MEM PAK SEQUENCE 
SHIFT MENU 

SEND WAIT RECUEST (RNR) 
(not shown) ; 

DISCONNECTED MODE 


geneen- 1 bit time ------ >< 
833.333 microseconds 
P 
R 
re) 
Cc 
E 
Ss 
Ss 
tyme3 tyme4 tymel tyme2 
delay delay delay delay 
23 "x! 23 3 
FIGURE 2: 


MW we kx GNOOCRRHAH ODP 


1 bit time --eee=> 
833.333 microseconds 


P 

R 

Oo 

Cc 

E 

Ss 

Ss 
tyme3 tyme4 tyme 1 tyme2 
delay delay delay delay 

23 "x! 23 23 


ENTER OPTION DESIRED ? 


W2EUP CONNECT REQUEST CO 
W2EUP DISCONNECT REQUEST 
W2EUP CONNECT ACKNOWLEDGE 
THIS IS AX.25 PROTOCOL 
AUTO CONNECT TOGGLE OFF 
W2EUP = GIL BOELKE MESSAGE 
SET INFO FIELD LOMEM PACKS 
QUICK BROWN FOX MESSAGE 
SET OPENING FLAG LENGTH 
INPUT/XMIT NORMAL INFO = V 
INPUT/XMIT UNNUMB INFO = V 
NOT CONEK TO OW] STATION 
SET RE-TRY IN CONNECT MODE 
SEND CLEAR WAIT (RR) 

(not shown): 

FRMR FRAME REJECT 


SHIFT MENU 3 _ 


XMIT 40960 Up CONTINUOUSLY 
LOAD MID-ME": ASCII UULUUU 
EDIT/MODIFY INSTRUCTIONS 
TRANSMIT EXTERNALLY ONLY 
SEND MORSE: I.D. 
CAUTION ** RESTORE DOS ** 
DISPLAY RECY PACKS @ 53248 
OSCAR 10 CALL/HANDLE LIST 
SAVE HI-MEM OIJ DISK 
TRANSMIT BAUD RATE SELFCT 
CLEAR HI-MEMORY 53248 + 
RECEIVE AX.25 PROTOCOL 
NORMAL DISFLAY = NOT DPLL 
NOTE: 


you towne 


AaqMOCE HHaAM AY 


I 
K 


BOOT DOS READY 

MOVE HI-MEM TO LOW-MEMOPY 
CHANGE RECEIVE DPLL BASE # 
TRANSMIT TO HI-MOMOPRY ONLY 
SEND SEQUENTIAL ACKS 
DISPLAY LOW MEMORY @ 17403 
RESTORE PROGPAM POINTERS 
MOVE PROGRAM TO LOW } ORY 
LOAD DISK FILE TO HI-MEM 
TEST OTHER STATION STATUS 
SEND MORSE FROM KEYBOARD 
RECV VANCOUVER NOT CONNECT 
DISPLAY DPLL LAST QUADRANT 


SPACE BAR IN RECEIVE MODE = RESLND LAST PACK 


owen tl 


Lowe bom ow 


Hon gee tt i il 


[Te ee | 


a ed 


Awvseznr4undow 


NnxK< 


00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 


INC IX & DEC Ix 


490, 0R 500 
MODE IS ENTERED FROM THE 


OR NOW CONNECTED MODE. 


(DPLL) IS AT THE 


3.01 SECOND DERBOUNCE 
;TIMR DELAY SINCE THE 
7CLFAR KEY IS USED TO 
;TOGGLE BETWEEN THE MENU 
}AND RECEIVE MODE, 
;RESTORE RECEIVE VIDEO 
;TEST SP FOR PGM ERRORS 
;DISPLAY ON VIDEO 

7;THAT A CONNECTION 
;ACKNOWLEDGE WAS SENT. 

} IF LONG DATA FROM LOMEM, 
UP TO 12288 BYTES, THEW 
;RESET POINTERS. 

;IF AX.25 STATUS REQUEST, 
}THEN DELAY 1 SECOND 
};BEFORE SENDING RR/RNR. 
;DISPLAY ON VIDEO 

;THAT <DISCONNECT ACK> 
;WAS TRANSMITTED. 

¢ SWAP ALTERNATE REGISTERS 
;MIDMEM TO STGRE PACKET 
;INITIALIZE AT ZERO 
pINITIALIZE AT ZERO 
;RESTORE REG. REGISTERS 


; FIGURE 3 
3 RECEIVE MODE REAL-TIME SDLC/HDLC SERIAL SYNCHRONOUS 
3 DATA STREAM TO PARALLEL DECIMAL BYTE CONVERSION. 
3} THE REGISTERS USED IN THIS RECEIVE MODE SUBROUTINE FROW 
3; LINE 900 ON ARE: REGULAR REGISTERS 
; A = USED + NEW PORT ZERO VALUE IN EACH DPLL QUADRANT 
3} F = USED THROUGHOUT 
3 B = DPLL COUNTDOWN VALUE FOR FIRST 3 DPLL QUADRANTS 
3; C = 8 BITS PER BYTE COUNTER 
3} D = CALCULATED DPLL COUNTDOWN VALUE FOR 4TH QUADRANT 
3} E = LAST PORT ZERO VALUE 
3} HL= MEM LOCATION TO STORE ENDING FLAG ADDRESS 
3; IX= ONLY FOR EQUALIZING TIME DELAYS; 
3 IY= UNUSED 
: ALTERNATE REGISTERS 
; A = UNUSED 
3 F = UNUSED 
3 B RECEIVED PARALLEL BYTE WITH ZERO-DELETION 
3c = RECEIVED PARALLEL BYTE WITHOUT ZERO-DELETION 
3; D = INCOMING BIT VALUE AT CENTER OF BIT TIME FRAME 
} E = LAST BIT VALUE AT CENTER OF BIT TIME FRAME 
3 HL= MEM LOCATION TO STORE CONVERTED DECIMAL BYTE 
3; THIS SUBROUTINE IS ENTERED IN LINE 440, 
3 DEPENDING ON WHETHER RECEIVE 
; MAIN MENU, NOT CONNECTED MODE, 
3 THE SOFTWARE DIGITAL PHASE LUCKED LOOP 
3 END OF THIS SUBROUTINE IN LINES 1880 = 2230. 
3 SIGNIFICANT RECEIVE MODE SUBROUTINES FROM VOLUME 2 
MODE LD BC ,6500 
CALL 060H 
LD A, (14400) 
CP 2 
JP Z,MODE 
MODF1 CALL RESKCV 
MODE1A CALL TESTSP 
LD A, (SIGN7) 
cP 
CALL Z,CNRO 
LD A, (SIGN6) 
CP 1 
CALL Z,SETIT 
LD A, (SIGNS) 
cP 1 
JP Z,SPACK-10 
LD A, (SIGN4) 
cp 
CALL Z,DISCAK 
BEFOR1 EXX 
LD HL, 40959 
LD DE,0 
LD BC ,0 
EXX 
CALL CLRMUL 


;CLEAR CLOSING FLAG STORE 


86"e 


00690 NEWONE 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 FLG1 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 FLG2 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 


A, (AUT) 
1 
Z,TIMOUT 
A, (RTRY) 


Z,NEWONE 
0,A 
2, NEWONE 
HL,STORE 
A, (DVAL) 
D,A 


2,BEFOR1 


D,A 
E 


E,D 


C 

A,C 

126 
Z,FLG2+31 


FLG1 
0,A 
Z,BEFOR1 


NZ, FLG2+35 
IN1A+1 


zAUTOMATIC CONNECT MODE ? 
3IF SO, AND CONNECTED, T2 
sTIMES OUT 6 1/2 MINUTES, 
3IN RE-TRY CONDITION ? 
3THEN ACTUATE T1 RE-TRY 
3TIMER BEFORE RESENDING. 
3EX-2211 OUTPUT PORT ZERO 
3SAVE IT IN 'D' REGISTER 
3KEYBOARD PSUEDO MEMORY 
?CLEAR KEY PRESSED ? 

3;IF SO, GOTO MAIN MENU 
3SPACE BAR PRESSED ? 

3IF SO, MANUAL RESEND. 
3EX-2211 OUTPUT PORT ZERO 
sANY CHANGE SINCE LAST ? 
7 IF NOT, GO LOOK AGAIN 
3DCD CARRIER DETECT ? 

3NO 1200/2200 TONES 

3}END FLAG ADDRESS STORE 
3DPLL COUNTDOWN VALUE 
:START OFF WITH NOMINAL 
3SOFTWARE DPLL LINE 1880 
EQUALIZING TIME DELAY 
EQUALIZING TIME DELAY 
sEQUALIZING TIME DELAY 
gEQUALIZING TIME DELAY 
3DCD CARRIER DROPPED ? 
?THEN START OVER AGAIN 
3SWAP ALTERNATE REGISTERS 
3SAVE INCOMING BIT IN 'D’ 
:COMPARE WITH LAST ONE 
3;DATA IN BIT 7 

sUPDATE E FOR NEXT ONE 
:SHIFT INTO CARRY 
sINCOMING BIT PATTERN 
3SWAP FOR COMPARE 

3;FOUND AN OPENING FLAG ? 
;IF SO, GOTO LINE 1280 
ELSE GO BACK TO FLG1 
3START LOOKING AGAIN. 
37DCD CARRIER DROPPED ? 
;THEN START OVER AGAIN 
3SWAP ALTERNATE REGISTERS 
zINCOMING BIT VALUE TO D 
sCOMPARE WITH LAST ONE 
3UPDATE E FOR NEXT TIME 
;DATA IN BIT 7 

sSHIFT INTO CARRY 

zINPUT DATA = 
zACCUMULATES HERE. 
gINCOMING BIT PATTERN 
7TEST IT 

3FOR ANOTHER OPENING FLAG 
3IF So, JUMP TO LINE 1330 
BUILT UP DATA VALUE 
sRESTORE REG, REGISTERS 
:DECREMENT BIT COUNTER 
:NOT ZERO, GET NEXT BIT 
31ST FRAME DATA GOTO 1600 


01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 


INn1 


INIA 


IN2 


1 NB 


IN4 


FL1 


DELETE 


Z,MOVEM+1 


D,A 
E 
E,D 


B 


c 
A,c 

126 
Z,FL1 
254 
Z,MOVEM 
254 

124 

2, DELETE 
A,B 


c 
NZ, IN4 


AL 

(HL) ,A 
A,H 

176 
Z,MOVEM-3 


c,8 
TYME 
IN1 
HL 


Bc 
Bc 
(HL) ,C 
HL 


(HL) ,B 
H 


L 
A, 144 
H 
2 ,MOVEM+1 
IN3+1 
B 


(IX) 
(Ix) 
TYME 


3STUFF 1ST FLAG HERE 
7RESTORE REG. REGISTERS 
sRESET BIT/BYTE COUNTER 
;DIGITAL PHASE LOCK LOOP 
:GO LOOK AGAIN 
rEQUALIZING TIME DEALY 
sEQUALIZING TIME DELAY 
3GO LOOK FOR NEXT BYTE 
3PACKET TONES DROPPED ? 
3IF SO, PROCESS IT. 
3SWAP ALTERNATE REGISTERS 
gINCOMING BIT VALUE TO D 
3;COMPARE WITH LAST ONE 
;UPDATE E FOR NEXT TIME 
3DATA IN BIT 7 

#SHIFT INTO CARRY 

3INPUT DATA BITS @ 
sACCUMULATES HERE. 
sINCOMING BIT PATTERN 
7TEST IT 

3FOR A CLOSING FLAG ? 
;IF SO, GOTO LINE 760 
3PACKET TONES DROPPED ? 
3: IF SO, PROCESS IT 
3;REMOVE BIT ZERO 
30111110X PATTERN ? 

3IF SO, DO ZERO DELETION 
sBUILT UP DATA VALUE 
3RESTORE REG. REGISTERS 
sDECREMENT BIT COUNTER 
3NOT ZERO, GET NEXT BIT 
3SAVED FOR DPLL TESTING 
?SWAP ALTERNATE REGISTERS 
3BYTE STASH MEM LOCATION 
3STASH IT IN MEMORY 

3TOO LONG A PACKET ? 
3OVER 4096 BYTES LONG ? 
3IF SO, PROCESS IT 
?RESTORE REG. REGISTERS 
;RESET BITS/BYTE COUNTER 
;DIGITAL PHASE LOCK LOOP 
;CONVERT INCOMING BIT 
3GOT A CLOSING FLAG 
;RESTORE REG. REGISTERS 
3FLAG LOCATION MINUS ONE 
#FLAG MEM LOCATION 

3STORE FLAG ADDRESS LSB 
3NEXT STORE LOCATION 
3STORE FLAG ADDRESS MSB 
7NEXT STORE LOCATION 
3OUT OF BOUNDS DUE TO = 
3RUN AWAY TNC ? 

3IF SO, PROCESS IT 

gELSE GO FOR NEXT ONE 
3ZERO DELETION, SO e 
?BACKUP ALTERNATE B 
sEQUALIZING 

3TIME DELAY. 

3;DIGITAL PHASE LOCK LOOP 


66°E 


01870 JP IN1 

01880 TYME LD A, (14400) 
01890 cP 2 

01900 JP Z,MENUO0~1 
01910 LD B,23 
01920 TYME1 DINZ TYME1 
01930 I A, (0) 
01940 cP E 

01950 JP NZ ,DEC2 
01960 LD B,23 
01970 TYME2 DJNZ TYME2 
01980 I A, (0) 
01990 cP E 

02000 JP NZ,DEC1 
02010 LD B,23 
02020 TYME3 DINZ TYME3 
02030 I a, (0) 
02040 cP E 

02050 JP NZ,INC1 
02060 LD B,D 
02070 TYME4 DJNZ TYME4 
02080 A, (0) 
02090 cP E 

02100 JP NZ,INC2 
02110 RET 

02120 DEC2 LD E,A 
02130 LD D,15 
02140 JP TYME2=2 
02150 DEC1 LD E,A 
02160 LD D,20 
02170 JP TYME3-2 
02180 INC1 LD E,A 
02190 LD D,24 
02200 JP TYME4-2 
02210 INC2 LD E,A 
02220 LD D,29 
02230 RET 

02240 ;---- - eee ee “oe 
02250 ; END OF SYNCHRONOUS BIT TO 


sCONVERT NEXT BIT 

sESCAPE IS CLEAR KEY 

3IF PRESSED GOTO = 

;MAIN MENU FOR INSTRUCTS. 
s;MODEL I COUNTDOWN VALUE 
31ST QUADRANT COUNTDOWN 
3PORT ZERO VALUE TO 'A!' 
zANY CHANGE FROM LAST ? 
3IF SO, GOTO LINE 2120 
;MODEL I COUNDOWN VALUE 
32ND QUADRANT COUNTDOWN 
3PORT ZERO VALUE TO 'A' 
sANY CHANGE FROM LAST ? 
3;IF SO, GOTO LINE 2150 
;MODEL I COUNTDOWN VALUE 
33RD QUADRANT COUNTDOWN 
;PORT ZERO VALUE TO 'A!' 
;ANY CHANGE FROM LAST ? 
3IF SO, GOTO LINE 2180 
;ADJUSTED COUNTDOWN VALUE 
3: 4TH QUADRANT COUNTDOWN 
;PORT ZERO VALUE TO 'A!' 
sANY CHANGE FROM LAST ? 
3IF SO, GOTO LINE 2210 
;DPLL DONE. GO PROCESS IT 
;SAVE NEW BIT IN 'E? 

;WAY TOO LATE, SO SHORTEN 
;LAST QUAD COUNT A BUNCH. 
3;SAVE NEW BIT IN 'E!' 
;TINY BIT TOO LATE, SO = 
;SHORTEN LAST QUAD A BIT. 
}SAVE NEW BIT IN ‘E! 
;TINY BIT TOO SOON, SO = 
;LENGTHEN LAST QUAD A BIT 
;SAVE NEW BIT IN ‘tE! 

3;WAY TOO SOON, LENGTHEN 
;LAST QUADRANT A BUNCH. 


00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 


; FIGURE 4 
3 IBM SDLC CRC GENERATION AND CRC CHECKING SUBROUTINES 
3 CRC1 AND CRC2 ARE FOR GENERATING THE 2 BYTE CRC VALUE 
7 FOR A FRAME OF (LENG1) BYTES IN LENGTH. ADDREZ IS THE 
3 MEMORY LOCATION OF THE BEGINNING OF THE SINGLE FRAME 
3} PACKET TO BE TRANSMITTED. MULTI-FRAME PACKETS USE A 
3; VARIABLE ADDREZ DEPENDING UPON WHERE EACH FRAME HAS 
3 BEEN SEQUENTIALLY MOVED IN MEMORY STARTING AT 43008. 
3 RCRC BEGINNING IN LINE 870 TESTS THE RECEIVED CRC VALUE 
3 OF aA FRAME StTaRTING at (BGINIT) IN MEmory wItH a TOTAL 
; LENGTH OF 'BC' REGISTER BYTES. MULTI-FRAME PACKETS OF 
3 1 TO 7 FRAMES/PACKET ARE SEQUENTIALLY ACCOMODATED. 
3; TABLE BEGINNING ON PAGE THREE IS THE LOOK-UP TABLE FOR 
3} THE BRILLIANT 'BYTE WISE' CRC SUBROUTINE SUGGESTED BY 
3 ARAM PEREZ IN THE THE JUNE '83 ISSUE OF I.E.E.E. MICRO. 
3} THE TABLE VALUES FOR THE IBM SDLC 'CRC' WERE GENERATED 
3; BY W4UCH AS THE PEREZ PAPER ONLY GAVE THE CRC16 VALUES. 
CRCVAL DEFW 0 3;RECEIVE CRC VALUE STASH 
ENDCRC DEFW 0 3XMIT CRC VALUE STASH 
CRC1 LD HL, ADDRE Z ;BEGIN MESSAGE LOCATION 
LD BC, (LENG1) 3;LENGTH OF FRAME IN BYTES 
LD DE, 65535 sINTIALIZE DIVIDEND 1'S 
CALL CRCT ;GENERATE CRC LINE 490 
CALL FINCRC ;SORT/STUFF RIGHT ORDER 
LD A, (SIGN2) ;DISPLAY CRC VALUE = 
cP 1 7ON VIDEO DISPLAY ? 
RET Z 3IF NOT, RETURN. 
LD HL, (ENDCRC) 7IF SO, THEN DISPLAY IT 
CALL DZ 3ON TOP LINE OF VIDEO. 
CRC2 LD BC,960 »= 15 LINES OF VIDEO 
LD HL, ADDRE Z ;BEGIN PACKET ADDRESS 
LD DE, 15424 32ND LINE OF VIDEO 
LDIR ;DISPLAY MESSAGE SENT 
RET 3;RETURN WHENCE U CAME +1 
CRCT LD A, (HL) 3FIRST BYTE TO CRC 
INC HL 3 INCREMENT FOR NEXT ONE 
PUSH BC 3SAVE BYTES TO CRC 
PUSH HL 3;SAVE NEXT BYTE LOCATION 
XOR E 3XOR REMAINDER LSB W/'A' 
LD C,A 7SAVE RESULT IN 'C' 
LD B,0 ?ZERO OUT 'B! 
ADD HL, BC 3;ADD BC TO LOCATION 
ADD HL, BC 3ADD BC TO LOCATION 
LD A,D ;REMAINDER MSB TO 'A' 
XOR (HL) 3XOR WITH TABLE VALUE 
LD E,A 3SAVE RESULT IN 'E' 
INC HL ;NEXT TABLE LOCATION 
LD D, (HL) 3SAVE VALUE IN 'D* 
POP HL 3;NEXT BYTE TO CRC MEM 
POP BC zNUMBER BYTES TO CRC 
DEC BC 7LESS ONE 
LD A,B 7;TEST FOR 
OR G 3ZERO 


OOL'S 


00690 JP NZ,CRCT 3IF NOT, CRC NEXT ONE FIGURE 4 CONTINUED 
00700 RET 3ELSE ALL DONE. RETURN a 
1 7DE = CRC 2 BYTE VALUE 
ees EPINERE et me ;COMPLEMENT IT This is the 512 byte CRC lookup table printed out as 256 two 
00730 LD HL, (WHER4B) 3;END OF MESSAGE +1 byte words to save space. The label TABLE is at location 1, 
00740 LD (HL) ,A 37LD 1ST CRC ON MESSAGE 
00750 LD (ENDCRC+1) ,A TANG Saye 17 EERE 1 DEFW 0 53 DEFW30631 105 DEFW 61262 157 DEFW 24293 209 DEFW 54925 
00760 INC HL sNEXT MESSAGE LOCATION 2 DEFW 4489 54 DEFW 26158 106 DEFW 65223 158 DEFW 20332 210 DEFW 50948 
00770 LD A,D sSECOND CRC BYTE 3 DEFW 8978 55 DEFW 21685 107 DEFW 52316 159 DEFW 32247 211 DEFW 62379 
00780 CPL COMPLEMENT IT 4 DEFW 12955 56 DEFW 17724 108 DEFW 56789 160 DEFW 27774 212 DEFW 58390 
00790 LD (HL) ,A LD 2ND CRC ON MESSAGE 5 DEFW 17956 57 DEFW 48587 109 DEFW 43370 167 DEFW 42250 213 DEFW 37033 
00800 LD (ENDCRC) ,A zAND SAVE IT HERE 6 DEFW 22445 58 DEFW 44098 110 DEFW 47331 162 DEFW 46211 214 DEFW 33056 
00810 RET ;RETURN WHENCE U CAME +1 7 DEFW 25910 59 DEFW 40665 111 DEFW 35448 163 DEFW 34328 215 DEFM 46011 
o0820 ; Been ssouz $° Duty ceiss 13 bury 2oevs 16S erp seise 28 Dury $3839 
DEFW 35912 61 DEFW 64495 F DEFW 2323 
00830 3 FOLLOWING Penn BEGG Tue A EeEBY HAGENG THe ROTEIS 10 DEFW 40385 62 DEFW 60006 114 DEFW 25102 166 DEFW 62119 218 DFW 19276 
00840 % CALLED WITH : 11 DEFW 44890 63 DEFW 55549 115 DEFW 20629 167 DFFW 49212 219 DEFW 31191 
00850 3; NUMBER OF BYTES IN THE FRAME (INCLUDING CRC BYTES). 12 DEFW 48851 64 DEFW 51572 116 DEFW 16668 168 DEFW 53685 220 DErW 26718 
00860 13 DEFW 51820 65 DEFW 16900 117 DEFW 13731 169 NEFW 10562 221 DEFW 7393 
00870 RCRC LD DE, 65535 RECEIVE CRC CHECK 14 DEFW 56293 66 DEFW 21389 118 DEFW 9258 170 DEFW 14539 222 DEFY 3432 
00880 LD HL, (BGINIT) ;BEGIN FRAME LOCATION 15 DEFW 59774 67 DEFW 24854 119 DEFW 5809 171 DEFW 2640 223 DFFW 16371 
00890 CALL CRCT 3CRC ALL INCLUDING CRC 16 DEFW 63735 68 DEPW 28831 120 DEFW 1848 172 DEFW 7129 224 DFFW 11898 
00900 LD (CRCVAL) ,DE ;SAVE REMAINDER IN MEM 17 DEFW 4225 69 DEFW 1056 121 DEFW 65487 173 DEFW 28518 225 DEFW 59150 
00910 LD HL,61624 ;COMPARE REMAINDER WITH 18 DEFW 264 70 DEFW 5545 122 NEFW 60998 174 DEFW 32495 226 DEFW 63111 
00920 RST 18H 3761624 DECIMAL 19 DEFW 13203 71 DEFW 10034 123 DEFW 56541 175 DEFW 19572 227 DEFW 50204 
00930 JP NZ,BADCRC eNOT ZERO = BAD ONE 20 DEFW 8730 72 DEFW 14011 124 DEFW 52564 176 DEFW 24061 228 DEFW 54677 
. * OK, SO RETURN 21 DEFW 22181 73 DEFW 52812 125 DEFW 47595 177 DEFW 46475 229 DEFW 41258 
00940 RET i ' T 22 DEFW 18220 74 DEFW 57285 126 DEFW 43106 178 DEFW 41986 230 DEFW 45219 
00950 BADCRC POP AF sADJUST STACK 23 DEFW 30135 75 DEFW 60766 127 DEFW 39673 179 DEFW 38553 231 DEFW 33336 
00960 POP AF sFOR 2 CALLS 24 DEFW 25662 76 DEFW 64727 128 DEFW 35696 180 DEFW 34576 232 DEFW 37809 
00970 LD Iy,37692 #<BAD CRC> MESSAGE 25 DEFW 40137 77 DEFW 34920 129 DEFW 33800 181 DEFW 62383 233 DEFW 27462 
009 80 CALL SHOWIT ;DISPLAY ON VIDEO 26 DEFW 36160 78 DEFW 39393 130 DEFW 38273 182 DEFW 57894 234 DEFW 31439 
00990 JP MODE1A 3GO AWAIT NEXT PACKET 27 DEFW 49115 79 DEFW 43898 131 DEFW 42778 183 DEFW 53437 235 DEFW 18516 
28 DEFW 44626 80 DEFW 47859 132 DEFW 46739 184 DEFW 49460 236 DEFW 23035 
29 DEFW 56045 81 DEFW 21125 133 DEFW 49708 185 DEFW 14787 237 DEFW 11618 
30 DEFW 52068 82 DEFW 17164 34 DEFW 54181 186 DEFW 10314 238 DEFW 15595 
31 DEFW 63999 83 DEFW 29079 135 DEFW 57662 187 DEFW 6865 239 DEFW 3696 
32 DEFW 59510 84 DEFW 24606 136 DEFW 61623 188 DEFW 2904 240 pEFW 8185 
33 DEFW 8450 85 DEFW 5281 137 DEFW 2112 189 DEFW 32743 241 DEFW 63375 
SSSaes= CRC LOOKUP TABLE =" """"> 34 DEFW 12427 86 DEFW 1320 138 DEFW 6601 190 DEFW 28270 242 DEFW 58886 
35 DEFW 528 87 DEFW 14259 139 DEFW 11090 191 DEFW 23797 243 pEfw 54429 
36 DEFW 5017 88 DEFW 9786 40 DEFW 15067 192 DEFW 19836 244 DEFW 50352 
37 DEFW 26406 89 DEFW 57037 41 DEFW 20068 193 DEFW 50700 245 DEFW 45483 
38 DEFW 30383 90 DEFW 53060 142 DEFW 24557 194 DEFW 55173 246 DEFW 40993 
39 DEFW 17460 91 DEFW 64991 143 DEFW 28022 195 DEFW 58654 247 DEFW 37561 
40 DEFW 21949 92 DEFW 60502 144 DEFW 31999 196 DEFW 62615 248 DEFW 33584 
41 DEFW 44362 93 DEFW 39145 145 DEFW 38025 197 DEW 32808 249 DEFW 31687 
42 DEFW 48323 94 DFFW 35168 146 DEFW 34048 198 DEFW 37281 250 DEFW 27214 
43 DEFW 36440 95 DEFW 48123 147 DEFW 47003 199 DEFW 41786 251 DEFW 22741 
44 DEFW 40913 96 DEFW 43634 148 DEFW 42514 200 DFFW 45747 252 DEFW 18780 
45 DEFW 60270 97 DEFW 25350 149 DEFW 53933 201 DEFW 19012 253 DEFW 15843 
46 DEFW 64231 98 DEFW 29327 150 DEFW 49956 202 DEFW 23501 254 DEFW 11370 
47 DEFW 51324 99 DEFW 16404 151 DEFW 61887 203 DEFW 26966 255 DEFW 7921 
48 DEFW 55797 100 DEFW 20893 152 DEFW 57398 204 DEFW 30943 256 DEFW 3960 
49 DEFW 12675 101 DEFW 9506 153 DEFW 6337 205 DEFW 3168 
50 DEFW 8202 102 DCFW 13483 154 DEFW 2376 206 DEFW 7657 
51 DEFW 4753 103 DEFW 1584 155 DEFW 15315 207 DEFW 12146 
52 DEFW 792 104 DEFW 6073 156 DEFW 10842 208 DEFW 16123 


LOL 


00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
09560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 


3 TRANSMIT SUBROUTINE: 


FIGURE 5 


SINGLE OR MULTI-FRAME 1200 BAUD 


3 PACKET WITH REAL-TIME ZERO INSERTION WHERE APPLICABLE 


SENPAK 


FLGDLY 


FLGNUM 
FLG 


FLAG 


SEND7 


KYBD4 


KYBD4A 


E 


UO Os 


APRPeePe|ee 


PydDDVUOUOUUYU 
i wn 


Q 


FPHEUVANGUHPANHPHRPHYEKAPEE 
uN 
Po 


E 
VUUVOPAGVTHY 


Q 
as 
HH 

we 


Our 
HOR, 
aux 


D 


HuUGOE 


Q 
> 
EA 
EA 


Hac 
> 
i 
ral 


EC 


anvaqaqgugys 


HL, (NORMFM) 
DE, (LASTFM) 
A, (FRMCNT) 
B,A 

A, (TESCNT) 
C,A 


IY, (STARPK) 
A,1 

(LASONE) ,A 
(SIGNG6) ,A 
A 


(ZEROMK) ,A 
(ZEROSP) ,A 
A, (BK) 


1 
Z,BAKOFF 
A, 60 


A 
Z,SEND7 
AF 


HL,98 
(SPEED) , HL 
A,126 
SNIA 


SN1 
SEND7+3 
FLAG 


Cc 
Z,KYBD4A 
B 


NZ,SEND7+1 
DUN1 

DE 

SEND7+2 


:SWAP ALTERNATE REGISTERS 
;NORMAL FRAME LENGTH 
;LAST FRAME LAST PACK LEN 
}FRAMES PER PACKET 

3;SAVE IN ALTERNATE 'B' 
;LAS FRM LAS PACK POINTER 
;SAVE IN ALTERNATE ‘C! 
;RESTORE REG. REGISTERS 
;ASSEMBLED PACK BEGIN ADR 
;LAST BIT VALUE POINTER 
;SAVE IT IN LASONE 

;SET XMIT LO-MEM POINTER 
3ZERO OUT 
;MARKS IN A ROW COUNTER 
3SPACES IN A ROW COUNTER 
;BACKOFF DELAY 'ON' ? 
3;IF SO, DO RANDOM 
;BACKOFF AFTER CLEAR 
;NUMBER FLAGS YOU INPUT 
;MINUS 1 
3;IF DONE SEND DATA IN 470 
;NUMBER FLAGS REMAINING 
37SEND SDLC/HDLC FLAG 
;RESTORE FLAG COUNTER 

;DO NEXT ONE 

31200 BAUD COUNT NUMBER 
;STASH IT IN SPEED 

;FLAG BYTE VALUE 

;NO ZERO INSERT TRANSMIT 
;RETURN TO LINE 400 

3;SWAP ALTERNATE REGISTERS 
3;FRAME LENGTH TO STACK 
;RESTORE REG. REGISTERS 
;FRAME LENGTH TO 'DE' 
}DECREMENT FRAME LENGTH 
;TEST 

3;FOR ZERO 

3;IF ZERO, GOTO LINE 600 
;FRAME LENGTH ON STACK 
;BYTE TO TRANSMIT 

;NEXT BYTE LOCATION 

;ZERO INSERTION TRANSMIT 
3;GOTO LINE 560 

;XMIT FRAME CLOSING FLAG 
3 SWAP ALTERNATE REGISTERS 
;LAST FRAME LAST PACK ? 
;IF ZERO JUMP TO LINE 670 
3 DEC NORMAL FRAMES/PACK 
;NOT ZERO, GOTO LINE 480 
3;IF ZERO, GOTO LINE 690 
;LAST FRAME LAST PACK LEN 
3;GOTO LINE 490 


00690 DUN1 
00700 
00710 
00720 
00730 SN1 
00740 
00750 SN2 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 LASTSP 
00880 

00890 

00900 

00910 

00920 

00930 

00940 

00950 

00960 SPACE 
00970 

00980 

00990 

01000 

01010 

01020 

01030 

01040 DECSP 
01050 

01060 

01070 SPACEA 
01080 

01090 

01100 

01110 

01120 

01130 

01140 

01150 

01160 

01170 SPACEB 
01180 

01190 

01200 

01210 

01220 

01230 SPACEC 
01240 

01250 

01260 

01270 


UT 


VEreKOHrG 
(2) 
mw 


vvUuyoUVAmMOUCwWUYU 
n 
fa] 


Ha 


Z, SPACE 


Z 

D 

SN2 

0,D 

NZ, SPACE 


SN2 
A,5 

(0),a 
A 


(ZEROMK) ,A 
A, (SPEED) 
HL,SPACEA 


(HL) 
De tbasonel 


Z,SPACEB 
A, (ZEROSP) 
A 


5 
Z,SPACEC 
(ZEROSP) ,A 


A,1 
(LASONE) ,A 


A,1 
(LASONE) ,A 
BC, 1 

060H 

MARK 


3SWITCH T/R RELAY 

3TO RECEIVE 

;RESTORE REG. REGISTERS 
3GOTG RECEIVE MODE 

;BYTE VALUE TO TRANSMIT 
s;NUMBER OF BITS PER BYTE 
31 = SPACE & 5 = MARK 
3;WAS IT A SPACE ? 

3IF SO, GOTO LAST SPACE 
;SET Z FLAG FOR BIT ZERO 
3IF NOT ZERO SEND MARK 
;SET Z FLAG FOR BIT ZERO 
;IF ZERO SEND SPACE 
32 USEC TIMING ADJUST 

3-1 FROM BIT COUNTER 

3IF ZERO, RETURN LINE 590 
;RIGHT SHIFT ALL 1 BIT 
3GO BACK FOR NEXT BIT 
3;SET Z FLAG FOR BIT ZERO 
;IF NOT ZERO SEND SPACE 
3;SET Z FLAG FOR BIT ZERO 
3IF ZERO SEND MARK 
32 USEC TIMING ADJUST 
3-1 FROM BIT COUNTER 
;IF ZERO, RETURN LINE 590 
sRIGHT SHIFT ALL 1 BIT 
3GO BACK FOR NEXT BIT 
3SEND SPACE TONE 

;VIA PORT ZERO 

3ZERO OUT ‘'A' REGISTER 
7AND ZERO MARK COUNTER 
;COUNTDOWN VALUE 

;RETURN MEM LOCATION 
3;PUSH ON TOP OF STACK 

;JP (HL) ADDRESS 

3-1 COUNTDOWN VALUE 

3GOTO SPACEA WHEN ZERO 
3JUMP TO DECSP 
;PREVIOUS BIT SENT 

;WAS IT A MARK ? 

3;IF SO, DON'T COUNT IT 
;SPACE COUNTER STASH 

3+1 TO SPACE COUNTER 

35 SPACES IN A ROW ? 

;IF SO, DO ZERO INSERTION 
3 IF NOT, SAVE NEW VALUE 
32 USEC TIMING ADJUST 
;RETURN WHENCE U CAME +1 
3;SINCE NOT SAME CHANGE IT 
;UPDATE LASTONE 
sEQUALIZING DELAY 
sEQUALIZING DELAY 
EQUALIZING DELAY 

;RETURN WHENCE U CAME +1 
31 = SPACE & 5 = MARK 
;UPDATE LASTONE 

;DELAY = NO SN2 ITERATION 
; APPROX. 30 MICROSECONDS 
;DO ZERO INSERTION 


cole 


01280 

01290 

01300 

01310 SPACE1 
01320 

01330 

01340 

01350 

01360 

01370 

01380 

01390 DECSP1 
01400 

01410 

01420 MARK 
01430 

01440 

01450 

01460 

01470 

01480 

01490 

01500 DECMK 
01510 

01520 

01530 MARKA 
01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 MARKB 
01640 

01650 

01660 

01670 

01680 

01690 MARKC 
01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 MARK1 
01780 

01790 

01800 

01810 

01820 

01830 

01840 

0 1850 DECMK1 
01860 


A 
(ZEROMK) ,A 


A,5 
(0),A 


A,1 
(LASONE) ,A 
A 


(ZEROMK) ,A 
A, (SPEED) 
HL ,DECSP1 
A 


(ZEROSP) ,A 
A, (SPEED) 
HL,MARKA 
HL 


HL,DECMK 
A 


Z 

(HL) 

A, (LASONE) 
1 


Z,MARKB 

a, (ZEROMK) 
A 

5 

Z,MARKC 
(ZEROMK) ,A 


A,5 
(LASONE) ,A 


A,5 
(LASONE) ,A 
BC,1 

060H 

SPACE 

A 
({ZEROSP) ,A 


A,1 

(0) ,A 

A,5 
(LASONE) ,A 
A 
(ZEROSP) ,A 
A, (SPEED) 
HL,DECMK1 
A 


2 


3ZERO OUT 'A' REGISTER 
zAND ZERO MARK COUNTER 
;RETURN WHENCE U CAME +1 
31310-1410 ONLY FOR FLAG 
;SPACE TONE PORT ZERO 

31 = SPACE & 5 = MARK 
;UPDATE LASTONE 

3ZERO OUT 'A' REGISTER 
;AND ZERO MARK COUNTER 
;COUNTDOWN VALUE 

3JP (HL) ADDRESS 

3-1 COUNTDOWN VALUE 
;RETURN WHENCE U CAME +1 
3JUMP TO DECSP1 

7SEND MARK TONE 

3VIA PORT ZERO 

3ZERO OUT '‘A‘ REGISTER 
;AND ZERO SPACE COUNTER 
;COUNTDOWN VALUE 

jRETURN MEM LOCATION 
7PUSH ON TOP OF STACK 
3JP (HL) ADDRESS 

3-1 COUNTDOWN VALUE 
GOTO MARKA WHEN ZERO 
7JUMP TO DECMK 

;PREVIOUS BIT SENT 

;WAS IT A SPACE ? 

3;IF SO, DON'T COUNT IT 
;MARK COUNTER STASH 

3+1 TO MARK COUNTER 

35 MARKS IN A ROW ? 

3;IF SO, DO ZERO INSERTION 
3IF NOT, SAVE NEW VALUE 
32 USEC TIMING ADJUST 
?RETURN WHENCE U CAME +1 
3SINCE NOT SAME CHANGE IT 
;UPDATE LASTONE 
sEQUALIZING DELAY 
gEQUALIZING DELAY 
EQUALIZING DELAY 
;RETURN WHENCE U CAME +1 
31 = SPACE & 5 = MARK 
;UPDATE LASTONE 

;DELAY = NO SN2 ITERATION 
zAPPROX. 30 MICROSECONDS 
3DO ZERO INSERTION 

3Z2ERO OUT 'A' REGISTER 
3AND ZERO SPACE COUNTER 
;RETURN WHENCE U CAME +1 
31770-1870 ONLY FOR FLAG 
3SEND MARK TONE 

31 = SPACE & 5 = MARK 
;UPDATE L&STONE 

3ZERO OUT 'A' REGISTER 
3;AND ZERO SPACE COUNTER 
;COUNTDOWN VALUE 

3JP (HL) ADDRESS 

3-1 COUNTDOWN VALUE 
?RETURN WHENCE U CAME +1 


01870 

01880 SNIA 
01890 

01900 SN2A 
01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

01990 

02000 

02010 LASSP 
02020 

02030 

02040 

02050 

02060 

02070 

02080 

02090 ZEROSP 
02100 ZEROMK 
02110 SPEED 
02120 LASONE 


DEFW 
DEFB 


3JUMP TO DECMK1 
31880-2080 ONLY FOR FLAG 
NUMBER OF BITS PER BYTE 
31 = SPACE & 5 = MARK 
;WAS XT A SPACE ? 

3IF SO, GOTO LAST SPACE 
3SET Z FLAG FOR BIT ZERO 
3IF NOT ZERO SEND MARK 
3SET Z FLAG FOR BIT ZERO 
:IF ZERO SEND SPACE 

g-1 FROM BIT COUNTER 

3IF ZERO, RETURN LINE 460 
RIGHT SHIFT ALL 1 BIT 
;GO BACK FOR NEXT BIT 
3SET Z FLAG FOR BIT ZERO 
;IF NOT ZERO SEND SPACE 
3SET Z FLAG FOR BIT ZERO 
3IF ZERO SEND MARK 

3-1 FROM BIT COUNTER 

?IF ZERO, RETURN LINE 460 
;RIGHT SHIFT ALL 1 BIT 
3GO BACK FOR NEXT BIT 
:SPACE COUNTER STASH 
?MARK COUNTER STASH 
3XMIT COUNTDOWN VALUE 
sLAST BIT SENT VALUE 


02130 ;----|-- = eee een wn ere enn wen ew ee ewww ew 


02140 ;END OF SINGLE/MULTI-FRAME 1200 BAUD SYNCHRONOUS TRANSMIT 


02150 


02160 ; FOR MODEL III CLOCK CHANGE LINE 420 FROM 98 TO 115, 


EoL’e 


00100 3 
00110 


FIGURE 6 


00120 ; IN-PROGRAM DISK I/O SUBROUTINES FOR AX.25 PROTOCOL 


00130 


00140 3 FOR TRSDOS 


00150 

12790 

12800 FCB 
12810 BUFFER 
12820 DIZ 
12830 

12840 

12850 

12860 

12870 

12880 FINISH 
12890 INPNAM 
12900 

12910 

12920 

12930 

12940 

12950 

12960 

12970 

12980 

12990 

13000 

13010 

13020 

13030 

13040 INNAME 
13050 

13060 

13070 

13080 

13090 

13100 

13110 

13120 

13130 

13140 

13150 

13160 

13170 

13180 ESCAPE 
13190 

13200 

13210 

13220 

13230 LONG 
13240 LON1 
13250 

13260 

13270 

13280 

13290 

13300 LBYTES 
13310 CLRLO 


ORG 
DEFS 
DEFS 


E 
E 


Q aaqra 
CES55SSeSe 
(ee) Pe 

ma E 


UVUWOQAHREE 
omMPpPuuYy 
tw~HEH 

Rw 


ZAwovVUOYV 


QAQAH 


POYMNHHAQHPHOGHPEE 


loRcsmae) 
yy 
= 


13 - 


TRSDOS 2.3 


49632 
32 
256 


A, (HL) 
0 


Z,FINISH 
033H 

HL 

DIZ 


CLS 
HL,NAM1 
DIZ 

049H 

1 
Z2,ESCAPE 
CLS 
HL,NAM1A 
DIZ 
1BB3H 
10H 
1ESAH 
DE,HL 
(DUMP+1) , HL 
(HOWFAR+1) ,HL 
CLS 

HL, NAM2 
DIZ 
1BB3H 
HL,41E8H 
A, (HL) 

0 


2,ESCAPE 
LONG 
HL,41E8H 
DE, FCB 


DRIVE 


AF 

HL,53248 
(DUMP+1) ,HL 
(HOWFAR+1) , HL 
MENU 

BC,0 

A, (HL) 

0 


= NEWDOS + AND 1.0 


;SUBROUTINE MEM LOCATION 
3;DISK FILE CONTROL BLOCK 
sDISK I/O WORKING SPACE 
;DISPLAY MESSAGE ON VIDEO 
3END OF MESSAGE DELIMITER 
3 IF ZERO, ALL DONE 
;DISPLAY BYTE ON VIDEO 
sNEXT MESG BYTE LOCATION 
3GO DISPLAY NEXT BYTE 
;RETURN WHENCE U CAME H 
7sC LEAR VIDEO 
sREMEMBER DELIMITERS MSG? 
DISPLAY XT ON VIDEO 
;AWAIT KEYBOARD INPUT 
;BREAK KEY PRESSED ? 

;IF SO, ESCAPE LINE 13180 
7C LE AR VIDEO 
;INPUT BEGIN ADDRESS MSG? 
s;DISPLAY IT ON VIDEO 
;KEYBOARD INPUT ROUTINE 
3SCAN STRING SET 'C' FLAG 
;CONVERT UNSIGNED INTEGER 
3;PUT INTEGER IN HL 
;STUFF BEGIN ADDRESS DUMP 
3;AND IN HOWFAR MEM 


3C LE AR VIDEO 
z;INPUT FILE NAME MESSAGE? 
;DISPLAY IT ON VIDEO 


;KEYBOARD INPUT ROUTINE 
;WHERE STASHED IN MEM 
?FIRST BYTE OF FILE NAME 
;YOU INPUT NOTHING ? 

3;IF SO, ESCAPE LINE 13180 
:HOW MANY BYTES IN NAME ? 
;NAME ADDRESS IN MEM 
;FILE CONTROL BLOCK ADR 
;MOVE TO CONTROL BLOCK 
;AND MOVE DRIVE NO. TOO 
;RETURN WHENCE U CAME +1 
;ADJUST STACK FOR CALL 
;RESET TO NORMAL 
;DUMP AND 
;HOWFAR 
3;TIP MENU FOR INSTRUCTS 
;HOW LONG IS FILE NAME ? 
;BYTE FROM NAME STRING 
3ZERO DELIMITER 
;RETURN WITH COUNT 

31 MORE BYTE 

;NEXT MEM LOCATION 

3GO COUNT IT 

;NUMBER BYTES READ STASH 
;CLEAR 


13320 
13330 
13340 
13350 
13360 
13370 
13380 
13390 
13400 
13410 
13420 
13430 
13440 
13450 
13460 
13470 
13480 
13490 
13500 
13510 
13520 
13530 
13540 
13550 
13560 
13570 
13580 
13590 
13600 
13610 
13620 
13630 
13640 
13650 
13660 
13670 
13680 
13690 
13700 
13710 
13720 
13730 
13740 
13750 
13760 
13770 
13780 
13790 
13800 
13810 
13820 
13830 
13840 
13850 
13860 
13870 
13880 
13890 
13900 


OPEN1 


READ 


LG 


LONG1 


CLOSE 


ERROR 


ER1 


ER2 


DRIVE 


POUOHMOOUY 
“a 


E 
Et 


4 


n 
a5] 


OE 
EA 


nng 
mio 


OF WUHEVOAOMWHHEPDAQOQHPHPEP DERE E 


DOGGBZvVOPCVVAD 


DE, 16873 
BC,12878 
(HL) ,0 


DE,FCB 
HL, BUFFER 
B,0 

4424H 
NZ,ERROR 


HL,53248 
DE, FCB 


13H 
HL 
(HL) ,A 


HL,53248 
(DUMP+1) , HL 
(HOWFAR+1) ,HL 
AF 


OFBDH 


A, (HL) 


HL,MS2C 
DIZ 
049H 
MENU 
A,@:!' 


3LOW MEMORY 

?WITH 

3 ZEROS 

3DO IT RIGHT NOW 

;RETURN WHENCE U CAME +1 
sFILE CTRL BLOCK MEM ADR 
;DISK I/O BUFFER ADDRESS 
3256 BYTE RECORD LENGTH 
3;OPEN AN EXISTING FILE 
32 FLAG SET IF ERROR 
;RETURN WHENCE U CAME +1 
;WHERE TO PUT FILE IN MEM 
;FILE CTRL BLOCK ADDRESS 
3;SAVE MEM LOCATION STACK 
;READ BYTE FROM DISK FILE 
;RESTORE MEM LOCATION 
sAND LOAD IT IN MEM 
:NEXT MEM LOCATION 

;SAVE IT IN STACK 

3;SAVE FCB POINTER 

;FILE END ADDRESS IN MEM 
3;CLEAR CARRY FLAG 

3SUB HL = DE SET Z FLAG 
;RESTORE FCB POINTER 
sRESTORE MEM LOCATION 
;RETURN IF ALL DONE 

3GO READ NEXT BYTE 

;FILE CTRL BLOCK ADDRESS 
;CLOSE FILE SUBROUTINE 
;SAVE IN STACK 

;BEGIN HI-MEM ADDRESS 
;RESET DUMP 

;RESET HOWFAR 

3RESTORE AF 

;RETURN UNLESS ERROR 
sADJUST STACK FOR CALL 
3ZERO OUT ‘H! 

yERROR NUMBER TO ‘Lf 
;MOVE HL INTO ACCUM 
;MAKE SURE AN INTEGER 
3;CONVERT TO STRING 
7ERROR MESSAGE LOCATION 
3ERROR NUMBER 

3ZERO STRING DELIMITER 
sALL DONE ? GOTO ER2 
3;ERROR NUMBER TO MEM 
NEXT ERROR # LOCATION 
NEST MESSAGE LOCATION 
3GO MOVE NEXT ONE 

7C LEAR VIDEO 
sADJUST STACK 

;RESTORE PGM POINTERS 
;CLEAR OUT DOS 

;CLEAR OUT HI-MEM 

sERROR # MESSAGE 
;DISPLAY IT ON VIDEO 
7PRESS ANY KEY 

3GOTO MENU FOR INSTRUCTS 
;DRIVE # SEPARATOR 


vole 


13910 LD (DE) ,A sPILE CONTROL BLOCK 14490 CALL HOWFAR ;CALCULATE BYTES TO SAVE 
13920 LD (BC) ,A sFUTURE USE VOL. 3 14500 LD A,195 ?RESTORE JUMP 

13930 INC DE NEXT FCB LOCATION 14510 LD (400CH) ,A 7TO LOW MEMORY 

13940 INC Bc sFUTURE USE VOL. 3 14520 CALL MOVDN MOVE DOS BACK DOWN MEM 
13950 LD A,‘1* sDRIVE# CHANGE UR CHOICE 14530 CALL OPEN3 :OPEN OR CREATE DISK FILE 
13960 LD (DE) ,A sINTO FILE CTRL BLOCK 14540 CALL DUMP ;DUMP IT TO DISK 

13970 LD (BC) ,A FUTURE USE VOL. 3 14550 CALL ‘CLOSE ?CLOSE TME DISK FILE 
13980 INC DE 3FCB NEXT LOCATION 14560 LD SP,29758 ;RESET STACK POINTER 
13990 INC Bc sFUTURE USE VOL. 3 14570 CALL SETUP ;REINITIALIZE PGM PTRS 
14000 LD A,13 sFCB DELIMITER 14580 CALL CLRLO 3CLEAR OUT DOS LO-MEM 
14010 LD (DE) ,A ;INTO FILE CTRL BLOCK 14590 JP MENU 3GO FOR INSTRUCTIONS 
14020 LD (BC) ,A 7FUTURE USE VOL. 3 14600 MS2C DEFM ‘ERROR ¢ ;DISK I/O ERROR MESSAGE 
14030 RET RETURN WHENCE U CAME +i 14610 DEFB 0 ;DELIMITER 

14040 NaM2 DEFM ‘INPUT FILE NAME * 14620 ORG 0C880H 7LOAD FILE MEM LOCATION 
14050 DEFB 0 ;DELIMITER 14630 LDFILE CALL INNAME INPUT FILE NAME 

14060 OPEN3 LD HL,BUFFER #DISK I/O BUFFER ADDRESS 14640 CALL CLRHY ;CLEAR HI-MEMORY 

14070 LD DE,FCB #FILE CTRL BLOCK ADDRESS 14650 LD A,195 RESTORE JUMP 

14080 LD B,0 3256 BYTES PER RECORD 14660 LD (400CH) ,A 3;TO LOW MEMORY 

14090 LD c,10H sFILE TYPE DOUBTFUL 14670 CALL MOVDN ;MOVE DOS BACK DOWN MEL; 
14100 CALL 4420H OPEN NEW DISK FILE 14680 CALL OPEN1 ;OPEN AN EXISTING FILE 
14110 RET sRETURN WHENCE U CAPE +i 14690 CALL MULPLY ;CALCULATE FILE LENGTH 
14120 HOWFAR LD HL,53248 ;CALCULATE BYTES TO SAVE 14700 CALL READ LOAD FILE TO HI-MEMORY 
14130 FAR1 NC HL 3;TO DISK FILE 14710 LD (HIHL) , HL ;SAVE HI-MEM END OF FILE 
14140 LD A (HL) +LOOK 14720 CALL CLOSE #CLOSE DISK FILE 

14150 cp 128 +FOR 14730 LD SP,29758 ;RESET STACK POINTER 
14160 JP NZ,FAR1 ; THREE 14740 CALL SETUP ;REINITIALIZE PGM PTRS 
14170 NC HL 7EACH 14750 CALL CLRLO CLEAR OUT DOS LO-MEM 
14180 LD A, (HL) ;DECIMAL 14760 CALL BAKUP 7CHECK EXTRA FILE DATA ? 
14190 cP 128 7128 14770 JP MENU ;MENU FOR INSTRUCTIONS 
14200 JP NZ, FARi zEND 14780 HIHL DEFW 0 ;END HI-MEM FILE STASH 
14210 NC HL 30F 14790 BAKUP LD HL, (HIHL) 3! 1 VOLUME 3 ONLY !2 
14220 LD A, (HL) 3MESSAGE 14800 BAK1 DEC HL ;THIS 

14230 P 128 s;DELIMITERS 14810 LD A, (HL) ; SCINTILLATING 

14240 JP NZ,FARi ;IN A 14820 cP 28 ;ROUTINE 

14250 NC HL ;ROW 14830 op Z,BAK1 3;TRIES 

14260 LD (SOFAR+i) , HL :SAVE THEM IN SOFAR 14840 cp 128 ;TO 

14270 RET sRETURN WHENCE U CAME +1 14850 oP Z,TESAGN ;BACKUP 

14280 DUMP LD HL,53248 ;BEGIN DATA LOCATION 14860 Inc HL 3; IN HI-MEMORY 

14290 LD DE,FCB #FILE CTRL BLOCK ADDRESS 14870 LD (BEFORE) ,HL TILL IT 

14300 DUM1 LD A, (HL) ;BYTE TO SAVE ON DISK 14880 RET 317 

14310 PUSH HL #SAVE BYTE MEM LOCATION 14890 TESAGN DEC HL ?FINDS 

14320 CALL 1BH ;WRITE TO DISK SUBROUTINE 14900 LD a, (HL) 33 EACH 

14330 POP HL RESTORE BYTE LOCATION 14910 CP 128 3128'S IN 

14340 JP NZ,ERROR 7% FLAG SET IF ERROR 14920 JP NZ,BAK1 7A ROW. 

14350 INC HL s;NEXT BYTE LOCATION 14930 DEC HL ;WHEN FOUND 

14360 PUSH HL 7SAVE IT IN STACK 14940 LD A, (HL) 3;IT RESETS BEFOR. 

14370 PUSH DE ;SAVE FCB POINTER 14950 cP 128 3SO THAT WHEN THE PROGRAM 
"T4380 SOFAR LD DE, 65535 ;LAST MEM BYTE LOCATION 14960 JP NZ,BAK1 ;AUTOMATICALLY MOVES THE 
14390 OR A ;CLEAR CARRY FLAG 14970 LD (BEFORE) , HL ;FILE DOWN, ONLY DATA IS 
14400 SBC HL,DE SUBTRACT HL MINUS DE 14980 RET ;MOVED. ! VOLUME 3 ONLY 2! 
14410 POP DE RESTORE FCB POINTER 14990 NAMIA  DEFM ‘INPUT BEGINNING MEM ADDRESS (53248 NOMINA 
14420 POP HL AND NEXT MEM LOCATION L) ! 

14430 RET Z yRETURN IF ALL DONE 15000 DEFB 0 ;DELIMTER 

14440 JP DUM1 3GO DUMP NEXT ONE TO DISK 15010 MULPLY LD A, (FCB+12) ;NUMBER RECORDS IN FILE 
14450 NAM1 DEFM ‘REMEMBER 128 DELIMITERS ? HIT BREAK TO ES 15020 MULO LD HL,0 3ZERO OUT BYTE COUNTER 
CAPE ELSE <ENTER>' 15030 MUL1 LD DE, 256 :BYTES PER RECORD 

14460 DEFB 0 ;DELIMITER 15040 ADD HL,DE ADD THEM UP 

14470 ORG 0c840H 7SAVE FILE MEM LOCATION 15050 DEC A ;MINUS ONE RECORD 

14480 SVFILE CALL INPNAM pINPUT FILE NAME 


15060 JP Z,MUL2 3ALL DONE, GOTO MUL2 


SsOL’e 


15070 JP MUL1 ;ADD UP NEXT ONE 00100 ; FIGURE 7 


15080 MUL2 LD A, (FCB+8) 3BYTES IN LAST SECTOR 00110 
15090 LD E,A :STUFF IN 'E! 00120 ; IN-PROGRAM EDIT/MODIFY/MONITOR SUBROUTINE = 866 BYTES 
15100 LD D,0 7ZERO OUT 'D' 00130 
15110 ADD HL, DE ;ADD THEM UP 00140 ; ALSO USED FOR KEYBOARD INPUT PACKET MESSAGES 
15120 MUL3 LD (LBYTES) ,HL 3;AND SAVE THEM HERE 00150 
15130 LD DE, 53248 ;BEGIN HIGH MEMORY 00160 
15140 ADD HL,DE ;ADD BYTES TO HI-MEM 05230 ORG 38912 ;SUBROUTINE MEM LOCATION 
15150 LD (LONG1+1) , HL ;AND SAVE THEM HERE 05240 DISMEM LD HL, 40960 ;CURRENT PACK LOCATION 
15160 RET ;RETURN WHENCE U CAME +1 05250 DISEM1 LD (MEMO) ,HL ;TOP OF PAGE STASH 
15170 05260 DISPLA LD HL, (MEMO) ;BACK TO HL REGISTER 
15180 ; +--+ ---- ee ee ee he ee ee er ee eee 05270 LD (LASMEM) , HL 3; INC/DEC STASH 
15190 3; END OF VOLUME 2 - DISK I/O SUBROUTINES 05280 DEC HL ;MINUS ONE 
05290 LD (MEMO1) , HL ;BOTTOM PREVIOUS PAGE 
05300 INC HL 37TOP OF THIS PAGE OF MEM 
05310 LD DE, 15360 ;BEGINNING VIDEO MEMORY 
05320 LD BC,1024 ;BYTES PER PAGE OF VIDEO 
05330 AGAIN LD A, (HL) ;CHANGE MODEL III 
05340 BIT 7,A ;VIDEO DISPLAY 
05350 CALL Z,SET6 ;TO SIMILAR TO 
05360 BIT 7,A ;MODEL I 
05370 CALL NZ, RES6 ;VIDEO DISPLAY 
05380 LD (DE) ,A ;STASH BYTE IN VIDEO 
05390 INC HL ;NEXT BYTE FROM MEMORY 
05400 INC DE 3;NEXT VIDEO DISPLAY MEM 
05410 DEC Be ;BYTES TO MOVE COUNTER 
05420 LD A,B ;TEST B 
05430 cp 0 3IF ZERO 
05440 JP Z,TESTIT }TEST C 
05450 JP AGAIN ;ELSE MOVE NEXT BYTE 
05460 RES6 RES 6,A 3}ZERO OUT BIT 6 
05470 RET ;RETURN WHENCE U CAME +1 
05480 SET6 BIT 6,A ;TEST BIT 6 
05490 RET NZ ;RETURN IF SET TO 1 
05500 BIT 5,A ;TEST BIT 5 
05510 RET NZ sRETURN IF SET TO 1 
05520 SET 6,A 3;IF NOT, SET BIT 6 TO 1 
05530 RET ;RETURN WHENCE U CAME +1 
05540 TESTIT LD A,C ;BYTES TO MOVE COUNTER 
05550 CP 0 3ZERO ? 
05560 JP NZ,AGAIN ;IF NOT, MOVE NEXT ONE 
05570 LD (MEMO), HL ;TOP NEXT PAGE MEMORY 
05580 NEXT CALL 049H ;AWALT KEYBOARD INPUT 
05590 CP 1 ;BREAK KEY ? 
05600 JP Z,7630H ;IF SO, GOTO PIP MENU 
05610 cP 13 }ENTER KEY ? 
05620 JP Z,DISPLA 3;IF SO, DISPLAY NEXT PAGE 
05630 cP 45 ;MINUS KEY ? 
05640 JP Z,BACKUP ;IF SO DISPLAY LOWER PAGE 
05650 cP 17 3'M' KEY PRESSED ? 
05660 uP Z,MODIF ;IF SO, GOTO MODIFY MODE 
05670 JP NEXT sELSE IGNORE IT 
05680 BACKUP LD HL, (MEMO1) ;MOVE THE 
05690 INC HL ;VIDEO DISPLAY 
05700 LD (MEMO) , HL ;DOWN A FULL PAGE 
05710 DEC HL 3; IN MEMORY 
05720 LD DE, 16383 ;LAST BYTE VIDFO MEMORY 
05730 LD BC,1024 ;FULL PAGE VIDEO BYTES 


05740 AGAIN1 LD A, (HL) ;CHANGE MODEL III 


9°oL°S 


05750 
05760 
05770 
05780 
05790 
05800 
05810 
05820 
05830 
05840 
05850 
05860 
05870 
05880 
05890 
05900 
05910 
05920 
05930 
05940 
05950 
05960 
05970 
05980 
05990 
06000 
06010 
06020 
06030 
06040 
06050 
06060 
06070 
06080 
06090 
06100 
06110 
06120 
06130 
06140 
06150 
06160 
06170 
06180 
06190 
06200 
06210 
06220 
06230 
06240 
06250 
06260 
06270 
06280 
06290 
06300 
06310 
06320 
06330 


TESIT 


LASMEM 
MODIF 


CONT3 


CONT3B 


Z,TESIT 
AGAIN1 

A,c 

0 

NZ,AGAIN1 
(MEMO1) , HL 
HL 
(LASMEM) , HL 
NEXT 

0 

IX, 15360 
IY, (LASMEM) 
BLINK-9 

A, (LNFEED) 
1 

Z,LFEED2 
BLINKB 

A, (14400) 


4 
Z,NEXT2 
32 
Z,LEFT1 
64 
Z,RIGHT1 


02BH 


Z,LFEED1 
32 

2,CK 

64 
Z,CONT3 
91 
Z,CONT3 
96 
Z,CONT3 


(HOLDZ) ,A 
A, (UPSIDE) 
0 


NZ, INVERT 
A, (HOLDZ) 


;VIDEO DISPLAY 

3TO SIMILAR TO 

3MODEL I 

;VIDEO DISPLAY 

3;STASH BYTE IN VIDEO 
;NEXT LOWER BYTE MEMORY 
3NEXT LOWER BYTE VIDEO 
:DECREMENT BYTE COUNTER 
3TEST B 

3IF ZERO 

TEST C 

3ELSE MOVE NEXT BYTE 
3;TEST C 

;FOR ZERO 

;IF NOT, MOVE NEXT BYTE 
;BOTTOM NEXT PAGE DOWN 
;TOP THIS PAGE OF MEM 
3AND SAVE THIS LOCATION 
3GO AWAIT NEXT COMMAND 
3MEM STASH 

;MODIFY MODE = MODIFY 
;BOTH VIDEO & REAL MEMORY 
;BLINKING CURSOR 
;LINEFEED AFTER CARRET? 
3IF so 

;STUFF IT IN MEMORY 
;RESTORE MEM CHARACTER 
;KEYBOARD ROW PSUEDO MEM 
;BREAK KEY PRESSED ? 

3IF SO, RESUME EDIT MODE 
gLEFT ARROW KEY PRESSED ? 
;MOVE CURSOR BACK A SPACE 
;RIGHT ARROW KEY PRESSED? 
;MOVE CURSOR AHEAD SPACE 
;DOWN ARROW KEY PRESSED 3 
3MOVE CURSOR DOWN 1 LINE 
3UP ARROW KEY PRESSED ? 
;MOVE CURSOR UP 1 LINE 
;SHIFT KEY PSUEDO MEM 
yEITHER SHIFTKEY PRESSED? 
zIF SO, TEST NOT ASCII 
KEYBOARD TO 'A' 
;SUBTRACT 11 

3IF MINUS, IGNORE IT 
gENTER KEY ? 

;SETUP AUTO LINE FEED 
3SPACE ? 

;TEST ILLEGAL SHIFT 

3@ KEY 3 

3IF SO, IGNORE IT 

3UP ARROW ? 

3IF SO, IGNORE IT 

;SHIFT @ ? 

3IF SO, IGNORE IT 

;SAVE BYTE INPUT 

;TEST FOR LOWERCASE 

3IF so 

7INVERT IT 

;RESTORE BYTE INPUT 


06340 

06350 

06360 

06370 CONTS 
06380 

06390 

06400 

06410 

06420 

06430 LFEED1 
06440 

06450 

06460 

06470 

06480 LFEED2 
06490 

06500 

06510 

06520 LNFEED 
06530 LEFT1 
06540 

06550 

06560 

06570 

06580 RIGHT1 
06590 

06600 

06610 

06620 

06630 UPONE 
06640 

06650 

06660 

06670 

06680 DOWN1 
06690 

06700 

06710 

06720 

06730 CONT3A 
06740 

06750 CKBACK 
06760 

06770 

06780 

06790 

06800 

068 10 CKAHED 
06820 

06830 

06840 

06850 

06860 

06870 CKDOWN 
06880 

06890 

06900 

06910 

06920 CKUP 


65 
M,CONTS 
5,A 


o 

(IX) ,A 
(IY) ,A 
CKAHED 
Ix 
ry 
CONT3 
AF 
A,1 
(LNFEED) ,A 
AF 


A 
(LNFEED) ,A 
A,10 

CONTS 

0 


SLOWLY 


SLOWLY 
CKAHED 
Ix 

ry 
CONT3 
SLOWLY 
SLOWLY 
CKDOWN 
SUB64 
CONT3 
SLOWLY 
SLOWLY 
CKUP 
ADD64 
CONT3 
HL 
CONT3 
DE, 15360 
Ix 

HL 
OA39H 
Z,CONT3A 


DE, 16383 
Ix 

HL 

0A39H 
Z,CONT3A 


SUB64A 
DE, 15360 
0A39H 
C,CONT3A 


ADD64A 


3SUBTRACT 65 

MINUS JUMP AROUND RESET 
?RESET BIT 5 

?DISPLAY BYTE ON VIDEO 
3LOAD BYTE INTO RAM MEM 
3NEXT LOCATION IN BOUNDS? 
30K SO, INCREMENT VIDEO 
3AND MEMORY LOCATION 

3GO SCAN FOR NEXT INPUT 
3SAVE CARRET BYTE 

;STUFF 1 INTO 

sAUTO LINE FEED POINTER 
3RESTORE CARRIAGE RETURN 
gRETURN WHENCE U CAME +1 
3ZERO OUT 

;LINEFEED POINTER 

sASCII 10 = LINEFEED 

3GO STUFF IT IN MEMORY 
sLINEFEED POINTER STASH 
3SLOWDOWN CURSOR MOVEMENT 
;CHECK IN BOUNDS ? 

30K, MOVE BACK A SPACE 
3AND DOWN 1 MEM LOCATION 
3GO SCAN NEXT INPUT 
3SLOWDOWN CURSOR MOVEMENT 
3CHECK IN BOUNDS ? 

370K, MOVE AHEAD A SPACE 
;AND UP 1 MEM LOCATION 
:GO SCAN NEXT INPUT 
?SLOWDOWN CURSOR MOVEMENT 
SLOWDOWN CURSOR MOVEMENT 
;CHECK IN BOUNDS ? 

70K, SO MOVE UP A LINE 
7GO SCAN NEXT INPUT 
sSLOWDOWN CURSOR MOVEMENT 
;SLOWDOWN CURSOR MOVEMENT 
;CHECK IN BOUNDS ? 

30K, SO MOVE DOWN A LINE 
3GO SCAN NEXT INPUT 
sADJUST STACK 

3GO SCAN NEXT INPUT 
?BEGIN VIDEO MEMORY 

?SWAP IX 

s INTO HL 

;COMPARE HL MINUS DE 

3IF EQUAL, THEN IGNORE 
3ELSE OK. RETURN 

3END OF VIDEO MEMORY 
3SWAP IX 

2INTO HL 

;COMPARE HL MINUS DE 

;IF EQUAL, THEN IGNORE 
#ELSE OK. RETURN 

3~64 FROM VIDEO MEM 
?BEGIN VIDEO MEM 

3;COMPARE HL = DE 

3IF OUT OF BOUNDS, IGNORE 
3ELSE OK. RETURN 

3+64 TO VIDEO MEM 


06930 
06940 
06950 
06960 
06970 
06980 
06990 
07000 
07010 
07020 
07030 
07040 
07050 
07060 
07070 
07080 
07090 
07100 
07110 
07120 
07130 
07140 
07150 
07160 
07170 
07180 
07190 
07200 
07210 
07220 
07230 
07240 
07250 
07260 
07270 
07280 
07290 
07300 


07310 


07320 


07330 


07340 
07350 
07360 
07370 
07380 
07390 
07400 
07410 
07420 
07430 
07440 
07450 
07460 
07470 
07480 
07490 
07500 
07510 


SUB64A 


AGN64S 


ADD64A 


AGN64A 


SUB64 


AGNSUB 


ADD64 
AGNADD 


HOLDIT 
SLOWLY 


BLINKA 


BLINKB 


INVERT 


HH 
ra 


He 
EA 


TUUPUAPUUUMPUOUUUY 


GRYUAYAHDOAHHHWDAAHHEHE 


Ur 


DE, 16384 
0A39H 
NC ,CONT3A 


AGNSUB 
A, 64 
IX 

IY 

A 

Zz 
AGNADD 
0 
BLINKA 
BLINKB 
BLINKA 
BLINKB 
BLINKA 
BLINKB 
BLINKA 
BLINKB 


A, (1X) 
(HOLDIT) ,A 
A,143 

(IX) ,A 

BC ,600 
060H 


A, (HOLDIT) 
(IX) ,A 
BC,600 
060H 


A, (HOLDZ) 


Z,CONTS 


sEND VIDEO MEM 
;COMPARE HL = DE 


3IF OUT OF BOUNDS, IGNORE 


:ELSE OK. RETURN 
7SWAP IX 

3INTO HL 
7;WE COULD HAVE 
3;USED ADD HL,DE 
BUT THERE IS MORE 
sTHAN ONE WAY TO 
3;SKIN A CAT 

;SWAP IX 
;INTO HL 
3WE COULD HAVE 
;USED SBC HL,DE 
BUT THERE IS MORE 
THAN ONE WAY TO 
;SKIN A CAT 

HERE IS ANOTHER 
3PLACE YOU MIGHT 
;WISH TO USE 
3SBC HL,DE 
3;HOW MANY BYTES 
;DID IT SAVE ? 
;HERE IS ANOTHER 
;PLACE YOU MIGHT 
;WISH TO USE 
;ADD HL, DE 
;HOW MANY BYTES 
3;DID IT SAVE ? 
;HOLDIT STASH 


7S G M 

7L u 0 

2 0 R Vv 

? w s E 

H D 0 M 

H 0 R E 

3 WwW N 
3 N T 


;RETURN WHENCE U CAME +1 
;SAVE VIDEO BYTE 

;IN HOLDIT 

; RECTANGULAR CURSOR 
;DISPLAY ON VIDEO 
:1/100TH SECOND 

3;TIME DELAY 

;RETURN WHENCE U CAME +1 
;RESTORE VIDEO CHARACTER 
3;TO VIDEO MEM LOCATION 
31/100TH SECOND 

;TIME DELAY 

sRETURN WHENCE U CAME +1 
; INVERT UPPER/LOWER CASE 
3;SUBTRACT 65 

;NOT ALPHABETICAL IGNORE 
sSUBTRACT 123 

;NOT ALPHABETICAL IGNORE 
3 SUBTRACT 95 

;NOT ALPHABETICAL IGNORE 


07520 
07530 
07540 
07550 


07560 


07570 


07580 
07590 


07600 


07610 


07620 
07630 
07640 
07650 
07660 
07670 
07680 
07690 
07700 
07710 
07720 
07730 
07740 
07750 
07760 
07770 
07780 
07790 
07800 
07810 
07820 
07830 
07840 
07850 
07860 
07870 
07880 
07890 
07900 
07910 
07920 
07930 
07940 
07950 
07960 
07970 
07980 
07990 
08000 
08010 
08020 
08030 
08040 
08050 
08060 
08070 
08080 
08090 
08100 


VU4GHY 
U 


ie 
Ry 
Ww 


QOPFPARPAANAGAHAAHFANGHAAGWVAUOVOUNEY 
DRPOPUUPUP PUNyMUUNUVUYy VUPrPVUOVOVNY 


Oo|QxXx 


$8 
[ae ae © 
iE Ea Ete 


$ 
EE Ee 
EYE EE 


ET 


ae] 


le] 


He 
Re 


SLOWLY 


Z,29760 
A, (14352) 
1 


Z,ONE28 
A, (14337) 
1 


NZ,CONT3B 
CLS 
CARETN 
HL, VALMS 
DIZPLA 
HL,0 
HL,SP 
OASAH 

A 

1034H 
(HL) 
OFD9H 
DIZPLA 
CARETN 
CARETN 
HL, VALMSO 
DIZPLA 


DIZPLA 
CARETN 
CARETN 
HL, VALMS1 
DIZPLA 

a, (IY) 
L,A 

H,0 


3BIT 5 SET ? 

3IF NOT, THEN SET XT 
;ELSE RESET IT 

;AND DISPLAY IT 

3SET BIT 5 TO DISPLAY 
;AND DISPLAY IT 

;BYTE STASH 

;LOWER CASE POINTER 
;SAVE BYTE 

3;SHIFT KEY PRESSED ? 
3IF SO 

3 IGNORE IT 

sRESTORE BYTE 

sCONTINUE ONWARD 
;ADJUST STACK FOR PUSH 
3GO SCAN NEXT INPUT 
sSLOWDOWN AS THIS IS AN 
sAUTO REPEAT FUNCTION 
3END OF MESSAGE DELIMITER 
;STUFF IT IN MEM & VIDEO 
;ELECTRIC PENCIL CTRL KEY 
sREINITIALIZE PGM POINTER 
;KYBD ZERO PSUEDO MEMORY 
3;SHIFT ZERO PRESSED ? 
3END OF MESSAGE DELIMITER 
;KYBD @ PSUEDO MEMORY 

37@ KEY PRESSED ? 

;IF NOT, CONTINUE ONWARD 
3;C LEAR VIDEO 
;VIDEO SKIP A LINE 
7STACK POINTER MESSAGE 
;DISPLAY IT ON VIDEO 
3;ZERO OUT HL 

;ADD IT TO STACK VALUE 
;MOVE IT TO ACCUM 

;ZERO OUT 'A' 

; GENERATE 

; UNSIGNED 

3 INTEGER 

;DISPLAY IT ON VIDEO 
;VIDEO CARRIAGE RETURN 
;VIDEO CARRIAGE RETURN 
;MEMORY LOCATION MESSAGE 
;DISPLAY IT ON VIDEO 
;SWAP IY MEM LOCATION 
sINTO HL 

;MOVE HL TO ACCUM 

3;ZERO OUT 'A' 

3; GENERATE 

; UNSIGNED 

; INTEGER 

;DISPLAY IT ON VIDEO 
;VIDEO CARRIAGE RETURN 
;VIDEO CARRIAGE RETURN 
3;MEM VALUE MESSAGE 
;DISPLAY IT ON VIDEO 

; IY LOCATION MEM VALUE 
3INTO 'L' 

3ZERO OUT ‘H® 


8OL’e 


08110 CALL OA9AH sMOVE HL TO ACCUM 08700 POP 


IX 3KITCHEN 
08120 CALL OFBDH 3CONVERT ACCUM TO STRING 08710 POP HL 3 THE 
08130 CALL DIZPLA ;AND DISPLAY IT ON VIDEO 08720 POP DE zs INCLUDING 
08140 CALL CARETN 3VIDEO CARRIAGE RETURN 08730 POP BC ?EVERTHING 
08150 CALL CARETN 3;VIDEO CARRIAGE RETURN 08740 POP AF RESTORE 
08160 LD HL, VALMS2 INPUT NEW MEM MESSAGE 08750 RET sRETURN WHENCE U CAME +1 
08170 CALL DIZPLA ;DISPLAY IT ON VIDEO 08760 
08180 LD BC, 32000 31/2 SECOND 087.70: psa eee eco: ey Sone eo. ee oS eh a ee See 
08190 CALL 060H 7TIME DELAY 08780 ; END OF EDIT/MODIFY/MONITOR SUBROUTINE 
08200 CALL 1BB3H zINPUT NEW VALU FROM KYBD 
08210 RST 10H 3SCAN STRING SET 'C' FLAG 
08220 CALL OE6CH z;ASCII $ TO ACCUM RET MIN 
08230 CALL OA7FH sCONVERT ACCUM TO INTEGER 
08240 LD A,L NEW MEM VALUE 
08250 LD (IY),A gAND STUFF IT IN MEMORY 
08260 NOTAS LD HL, (LASMEM) ;BEGINNING MEM LOCATION 
08270 LD DE, 15360 ?BEGINNING VIDEO MEM 
08280 LD BC,1024 ;RESTORE VIDEO ALMOST 
08290 LDIR ;SAME AS BEFORE 
08300 CALL CKAHED ;TEST VIDEO IN BOUNDS ? 
08310 INC IX 370K, SO MOVE CURSOR AHEAD 
08320 INC Iy 3& INCREMENT MEM LOCATION 
08330 gp CONT3 3;GO BACK & SCAN KEYBOARD 
08340 VALMS DEFM "STACK POINTER = ° 
08350 DEFB 0 ; DELIMITER 
08360 VALMSO DEFM "MEM LOCATION Is * 
08370 DEFB 0 ;DELIMITER 
08380 VALMS1 DEFM "MEMORY VALUE IS ° 
08390 DEFB 0 ;DELIMITER 
08400 VALMS2 DEFM ‘INPUT NEW VALUE ° 
08410 DEFB 0 ;DELIMITER 
08420 MEMO DEFW 0 gMEMORY LOCATION STASH 
08430 MEMO1 DEFW ) 3MEM LOCATION STASH -1 
08440 NEXT2 LD BC,24000 zABOUT 1/3 SECOND 
08450 CALL 060H TIME DELAY 
08460 ap NEXT zAWAIT EDIT MODE COMMAND 
08470 CARETN LD A,13 3 VIDEO 
08480 CALL 033H sCARRIAGE RETURN 
08490 RET #RETURN WHENCE U CAME +1 
08500 CLS LD HL, 15360 3;BEGIN VIDEO MEM 
08510 LD DE, 15361 3PLUS ONE 
08520 LD BC,1023 ;BYTES TO CLEAR 
08530 LD (HL) , 32 sWITH SPACES 
08540 LD (16416) ,HL ;RESET VIDEO CURSOR 
08550 LDIR sMOVE'M RIGHT NOW 
08560 RET z;RETURN WHENCE U CAME +1 
08570 DIZPLA PUSH AF 3SAVE 
08580 PUSH BC sEVERTHING 
08590 PUSH DE 3 INCLUDING 
08600 PUSH HL 3THE 
08610 PUSH Ix 3: KITCHEN 
08620 PUSH IY 7SINK 
08630 MOREL LD A, (HL) ;BYTE TO DISPLAY 
08640 cP 0 gEND MESSAGE DELIMITER 
08650 JP Z,FINIS1 3IF SO, ALL DONE 
08660 CALL 033H ;DISPLAY & UPDATE CURSOR 
08670 INC HL 3MESSAGE MEM LOCATION 
08680 JP MORE1 3GO DISPLAY NEXT ONE 


08690 FINIS1 POP ry “ sSINK 


